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ABSTRACT  *" 

The  Development  of  an  Accelerometer  System 
for  Measuring  Pelvic  Motion  During  Walking 

A  planar  eight  accelerometer  measurement  system  for  determining  the  three 
dimensional  motion  of  the  pelvis  during  walking  has  been  developed  in  this  study. 
Literature  reviews  are  given  for:  previous  studies  of  pelvic  motion,  kinematic 
measurement  systems  and  previous  studies  which  used  accelerometers  to  measure 
human  locomotion  activities. 

Equations  for  the  eight  accelerometer  configuration  are  derived  from  the 
general  equations  of  rigid  body  motion.  The  method  of  solving  these  equations 
for  angular  velocity,  angular  position  and  the  translational  acceleration, 
velocity  and  position  is  developed.  The  design  analysis  for  the  accelerometers 
fabricated  and  used  in  this  study  and  their  associated  electronic  equipment  is 
given.  The  method  used  to  mount  the  accelerometers  on  the  pelvis  of  subjects  is 
presented.  The  equipment  and  method  used  to  calibrate  the  system  is  described 
and  this  description  includes  the  techniques  used  to  ensure  temperature  stability 
during  data  collection. 

The  computer  programs  used  to  process  data  collected  in  walking  tests  are 
explained.  The  mathematical  techniques  used  to  integrate  the  equations  and  to 
filter  the  data  are  discussed.  The  following  pelvic  motion  parameters  are 
produced  as  functions  of  time:  angular  velocity,  angular  position,  translational 
acceleration,  translational  velocity  and  translational  position.  The  results  of 
experimental  testing  of  the  measurement  method  are  presented. 

Graphical  results  for  tests  of  seven  male  subjects  walking  barefoot,  in 
shoes  and  carrying  13.6  Kg  backpacks  and  of  seven  female  subjects  walking  bare¬ 
foot,  in  low  heeled  shoes  and  in  high  heeled  shoes  are  presented.  These  results 
are  compared  with  results  from  previous  studies  and  a  nonparametric  statistical 
evaluation  of  the  results  shows  that  the  measurement  system  can  detect  changes 
in  pelvic  motion  due  to  different  footwear  and  back  loads. 

It  is  >ncluded  that  this  accelerometer  measurement  method  can  measure  three 
dimensional  pelvic  motion  during  human  locomotion  activities  such  as  walking. 
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CHAPTER  1 

INTRODUCTION  AND  PURPOSE  OF  RESEARCH 


1.1  Introduction  and  Purpose  of  Research 

1.2  Anatomical  Description  of  the  Pelvis  and  Sacrum 

1.3  Review  of  Previous  Studies  of  Pelvic  Motion 

1.4  Review  of  Kinematic  Measurement  Systems 

1.4.1  Photographic  Systems 

1.4.2  Photogrammetr ic  Systems 

1.4.3  Polarized  Light  and  Photodetector  Systems 

1.4.4  Television  Systems 

1.4.3  Body  Contact  Systems 

1.5  Review  of  Previous  Studies  using  Accelerometers 


1 . 1  Introduction  and  Purpose  of  Research 

The  majority  of  the  patients  referred  to  orthopaedic  hospitals  for 
treatment  have  some  disorder  of  the  lower  limbs,  pelvis  or  lumbar  spine. 
These  patients  usually  modify  their  gait  to  compensate  for  the  disorder 
and  the  degree  to  which  they  deviate  from  "normal"  walking  is  primarily  a 
function  of  the  disorder.  The  pelvis  and  sacrum  form  a  crucial  junction 
between  the  lower  limbs  and  the  lumbar  spine.  Forces  are  transmitted 
through  the  pelvis  to  the  lumbar  spine  and  the  motion  of  the  pelvis  is  an 
integral  part  of  human  locomotion.  Biomedical  studies  of  the  pelvis  and 
sacrum  can  be  classified  as  either  kinetic,  the  study  of  the  effects  of 
forces  on  motion,  or  kinematic,  the  study  of  motion  without  reference  tc 
the  effects  of  forces.  Most  studies  have  focused  on  the  kinetics  of  the 
hip  joint  due  to  the  clinical  interest  brought  about  by  the  total  hip 
prosthesis.  The  surgical  replacement  of  the  hip  joint  is  one  of  the  coracrm 
operations  appearing  on  the  surgical  list  at  many  orthopaedic  hospitals. 
There  is  also  clinical  interest  in  the  kinematics  of  the  pelvis  because 
treatment  is  intended  to  improve  the  locomotion  of  the  patient. 
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Although  disorders  of  the  lower  limbs  result  in  a  modification  of 
pelvic  motion  to  compensate  for  the  disorder,  there  have  been  very  few 
kinematic  studies  of  the  pelvis.  Adequate  kinematic  studies  of  pelvic 
motion  have  not  been  performed  because  there  seems  to  be  no  suitable 
measurement  system  available  to  study  pelvic  motion.  The  kinematic 
measurement  systems  used  to  study  the  relatively  large  movements  of  the 
lower  limbs  are  not  capable  of  measuring  the  small  translations  and 
rotations  of  the  pelvis.  Therefore,  the  purpose  of  this  study  was  to 
develop  a  kinematic  measurement  system  capable  of: 

(1)  measuring  the  three  dimensional  motion ( translation  and 

rotation)  and  linear  accelerations  of  the  pelvis  and  sacrum 
during  activities  such  as  walking 

(2)  detecting  changes  in  the  motion  and  linear  accelerations  of 

the  pelvis  and  sacrum  due  to  lower  limb  or  pelvic 
disorders . 

In  order  to  test  the  systems  capability  to  accomplish  the  above  purposes, 
measurements  were  to  be  made  of  level  walking  and 

(1)  variation  of  heel  height  in  healthy  female  subjects 

(2)  load  carrying  on  the  back  in  healthy  male  subjects. 

The  reasons  for  selecting  these  purposes  will  now  be  elaborated  upon. 

An  understanding  of  pelvic  motion  is  fundamental  to  understanding  how 
humans  walk.  In  a  classic  article.  The  Major  Determinants  in  Normal  and 
Pathological  Gait.  Saunders,  Inman  and  Eberhart ( 1953)  suggested  that  there 
were  six  primary  determinants  of  human  locomotion.  Three  of  the  six  are 
pelvic  movements:  pelvic  rotation  to  the  right  and  left  about  the  vertical 
axis  which  reduces  the  vertical  movements  of  the  center  of  gravity  of  the 
body  and  thereby  the  energy  cost  of  locomotion;  pelvic  tilt,  the  rotation 
about  a  horizontal  axis  in  the  coronal  plane,  which  further  reduces  the 
vertical  motion  of  the  center  of  gravity  and  the  energy  cost;  and  lateral 
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displacement  of  the  pelvis  which  reduces  the  horizontal  displacement  of 
the  center  of  gravity  to  a  value  approximately  equal  to  the  vertical 
displacement.  The  net  effect  of  these  pelvic  movements  is  to  produce  a 
smoch,  low  energy  motion  of  the  center  of  gravity  of  the  body  when 
walking.  They  also  point  out  that  most  disorders  of  the  joints  of  the 
lower  limbs  will  be  manifested  in  exaggerated  motions  at  other  levels  and 
this  will  be  reflected  in  a  change  from  the  normal  pattern  of  pelvic 
motion. 

In  spite  of  the  evidence  that  understanding  pelvic  motion  is 
essential  to  the  understanding  of  normal  and  abnormal  gait,  very  few 
complete  studies  of  pelvic  motion  have  been  undertaken.  Murray, 
et.al.(1964)  concur  with  this  and  also  note  that  in  their  preliminary 
tests  on  patients  with  hip  fusions  "exaggeration  of  pelvic  tipping  was  an 
important  mechanism  to  compensate  for  the  absence  of  motion  at  the  hip 
joint."  It  seems  very  likely  that  other  disorders  will  also  result  in  an 
alteration  of  pelvic  motion,  yet  only  one  complete  study  of  pelvic  motion 
has  been  found  in  the  literature,  LamoreuxC 19 7 1 ) .  The  literature  review 
conducted  in  this  area  is  presented  later  in  this  chapter  and  supports  the 
need  for  a  more  comprehensive  study  of  pelvic  motion. 

Several  studies  of  accelerations  measured  in  the  lumbo-sacral  region 
have  been  made  and  are  summarized  in  the  review  of  studies  using 
accelerometers  contained  in  the  final  section  of  this  chapter.  However,  in 
most  of  these,  no  attempt  was  made  to  ensure  that  the  accelerations  were 
measured  in  vertical  and  horizontal  directions.  The  accelerations  were 
simply  recorded  as  the  subjects  walked  and  thus  the  natural  oscillations 
of  the  pelvis  changed  the  orientation  of  the  accelerometers.  In  this  study 
it  was  considered  essential  to  resolve  the  accelerations  along  coordinate 
axes  fixed  in  space  in  order  for  valid  comparisons  to  be  made. 
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To  Lest  the  measurement  system,  the  pelvic  motion  of  healthy  male  and 
female  subjects  would  be  measured  during  level  walking.  Since  variation  of 
heel  height  and  load  carrying  could  be  expected  to  alter  pelvic  motion, 
these  two  conditions  were  included  to  test  the  ability  of  the  measurement 
system  to  detect  changes  in  pelvic  motion.  There  have  been  various  studies 
of  the  effects  of  high  heels,  both  for  standing,  Buehler ( 1932) ,  and 
walking,  Schwartz ( 1935  ) ,  Mathews (1963) ,  Gollnick ( 196A )  and  Mur ray ( 1 9 70 ) . 
None  of  these  studies  investigated  the  effect  on  accelerations  at  the 
sacrum  of  wearing  high  heels.  There  have  been  several  studies  on  the 
acceleration  levels  at  the  heel,  pelvis  and  head,  Guenther (1968)  or 
Light(1977),  for  various  floor  surfaces,  running  and  walking  and  with 
various  heel  materials.  Therefore,  in  addition  to  testing  the  measurement 
system,  useful  information  would  be  obtained  on  pelvic  motion  and  changes 
in  acceleration  levels  at  the  pelvis  due  to  wearing  high  heels.  For  male 
subjects,  who  do  not  normally  wear  high  heels,  a  load  carried  on  the  back 
was  used  as  the  test  of  the  measurement  system. 

In  order  to  accomplish  these  purposes,  it  was  necessary  to  select  a 
measurement  system.  The  various  systems  used  to  make  kinematic 
measurements,  as  reported  in  the  literature,  are  reviewed  later  in  this 
chapter.  Some  of  these  systems  were  eliminated  from  consideration  as 
unsuitable  for  measuring  three  dimensional  motion  of  the  pelvis,  such  as 
goniometers  and  other  systems  which  only  measure  relative  motion  or  motion 
of  joints.  The  systems  being  investigated  for  feasibility  by  other 
researchers  at  the  time  this  study  was  begun  were  eliminated  due  to  the 
uncertainty  involved  in  the  development  of  new  techniques;  these  included 
the  polarized  light  and  photodetector  systems  and  television  systems. 
Photographic  systems  have  been  used  to  obtain  acceleration  data  in  several 


previous  studies.  However,  these  require  a  great  deal  of  manual  effort  to 
obtain  results  and  most  studies  reported  that  accurate  acceleration  data 
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was  difficult  to  obtain  when  displacements  were  small.  This  is  because  the 
double  differentiation  required  magnifies  any  errors  present  in  the 
displacement  data.  As  the  displacements  of  the  pelvis  are  small,  and 
accelerometers  provide  the  data  directly,  the  use  of  photographic  methods 
was  rejected.  The  decision  to  pursue  the  use  of  a  three  dimensional 
measurement  system  for  measuring  pelvic  motion  based  on  accelerometers  was 
made  after  careful  evaluation  of  the  several  systems  available  and 
consideration  of  all  the  needs  and  purposes  of  this  study. 

In  the  remaining  sections  of  this  chapter  an  anatomical  description 
of  the  pelvis  and  sacrum  and  reviews  of  previous  studies  of  pelvic  motion, 
kinematic  measurement  systems,  and  previous  studies  using  accelerometers 
are  presented.  Chapter  2  presents  the  theoretical  analysis  for  the 
accelerometer  configuration  used  in  this  study  and  the  method  of  obtaining 
displacement  and  rotation  data  from  accelerometer  measurements.  In 
chapter  3  the  experimental  apparatus  is  discussed.  The  chapter  includes 
details  of  the  design,  fabrication  and  testing  of  the  accelerometers  and 
the  electronic  equipment  required  for  their  operation;  the  method  used  to 
mount  the  accelerometers  on  the  sacrum  of  subjects;  and  the  equipment  used 
to  calibrate  the  accelerometers  prior  to  data  collection.  In  chapter  A  the 
method  of  acquiring  and  processing  data  from  subjects  is  explained.  This 
includes  calibration  procedures,  subject  preparation,  and  walking  test 
sequences  and  a  description  of  the  computer  programs  used  to  store  and 
process  test  data.  Also  included  in  this  chapter  are  estimates  of 
experimental  errors  based  on  tests  of  the  accuracy  of  the  system.  Chapter 
5  presents  the  results  of  the  walking  tests  on  subjects.  A  discussion  of 
these  results  is  contained  in  chapter  6  and  conclusions  and 
recommendations  for  future  studies  are  presented  in  chapter  7. 

i 
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1 . 2  Anatomical  Description  of  the  Pelvis  and  Sacrum 

Any  study  of  the  human  body,  or  any  of  its  various  segments,  requires 
a  knowledge  of  the  structure  of  the  component  members  of  that  segment. 
Therefore  a  brief  anatomical  description  of  the  bony  structure  of  the 
pelvis  and  sacrum,  the  pelvic  ring,  will  be  presented  in  this  section.  As 
this  study  involves  measuring  the  motion  of  the  pelvis  during  walking  a 
coordinate  system  must  be  established  as  a  reference  frame  in  which 
measurements  can  taken.  The  coordinate  system  which  was  used  in  this  study 
will  also  be  described  in  this  section. 

The  pelvic  ring,  as  shown  in  Figure  1-1,  serves  to  transmit  forces 
from  the  lower  limbs  to  the  vertebral  column,  via  the  hip  and  lumbosacral 
joints,  and  to  provide  support  to  the  abdominal  viscera  from  below.  In 
adults  it  is  composed  of  three  bony  structures:  two  hip  bones  and  the 
sacrum  which  is  a  solid  section  of  bone  formed  by  the  fusion  of  the  five 
sacral  vertebrae.  There  are  two  interior  joints,  the  pubic  symphysis  and 
the  sacroiliac  joint,  and  three  exterior  joints,  the  two  hip  joints  and 
the  lumbosacral  joint.  The  pelvic  ring  resembles  a  large  funnel  and  is 
very  different  in  the  two  sexes.  The  female  pelvis  is  much  broader  and 
shorter  than  the  male  pelvis.  In  addition,  the  brim  of  the  pelvic  ring  has 
a  larger  diameter  in  the  female. 

During  childhood,  the  hip  bone,  shown  in  Figure  1-2,  consists  of 
three  bones,  the  ilium,  ischium  and  pubis;  these  bones  fuse  into  one  solid 
bony  structure  in  the  adult.  The  largest  of  these  is  the  ilium  which  is  a 
large  flat  bone  ending  superiorly  in  the  iliac  crest.  The  prominences  at 
either  end  of  the  iliac  crest,  both  of  which  are  easily  palpated  through 
the  skin  and  muscle  tissue,  are  the  anterior  superior  iliac  spine  and  the 
posterior  superior  iliac  spine.  Below  these  lie  the  anterior  and  posterior 
inferior  iliac  spines  which  are  very  difficult  to  palpate.  l..e  lower  end 
of  the  ilium  terminates  in  the  upper  portion  of  the  acetabulum,  the  socket 
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of  the  hip  joint.  Between  the  acetabulum  and  the  posterior  inferior  spine 
is  a  curved  section  of  bone  known  as  the  greater  sciatic  notch. 

The  next  largest  section  of  the  hip  bone  is  the  ischium.  Its 
outstanding  feature  is  the  ischial  tuberosity  which  we  sit  upon.  Above  the 
ischial  tuberosity,  the  spine  of  the  ischium  protrudes  medially  and  the 
margin  of  the  ischium  forms  the  lesser  sciatic  notch.  Ischial  bone  also 
forms  a  section  of  the  lower  portion  of  the  acetabulum.  A  strong  section 
of  bone  called  the  ramus  of  the  ischium  begins  at  the  anterior  aspect  of 
the  ischial  tuberosity  and  unites  with  the  corresponding  section,  the 
inferior  ramus  of  the  pubis,  to  form  the  conjoined  ramus. 

The  inferior  ramus  leads  to  the  body  of  the  third  bony  section  of  the 
hip  bone,  the  pubis.  The  pubis  is  also  a  flat  section  of  bone  which  has  a 
superior  pelvic  surface  and  an  inferior  femoral  surface.  The  anterior 
section  stands  out  as  the  pubic  crest  and  at  the  lateral  end  of  this  crest 
is  the  pubic  tubercle.  The  pubis  also  forms  part  of  the  acetabulum  and  its 
superior  ramus  joins  the  ilium  at  the  iliopectineal  eminence.  A  large 
hole,  the  obdurator  foramen,  appears  just  below  the  acetabulum  and  is 
bordered  by  the  superior  ramus,  the  body  of  the  pubis,  the  conjoined  ramus 
and  the  body  of  the  ischium. 

The  sacrum,  shown  in  Figures  1-3  and  1-4,  is  a  wedge  shaped  bone 
formed  by  the  fusion  of  the  five  sacral  vertebrae .  The  main  bodies  fuse 
along  the  midline  to  form  the  body  of  the  sacrum  while  the  lateral  portion 
fuses  into  the  lateral  mass.  A  series  of  openings  between  the  main  body 
and  the  lateral  mass,  the  anterior  and  posterior  sacral  foramina,  serve  as 
the  exit  points  for  the  sacral  nerves.  The  sacral  canal  is  located  in  the 
center  of  the  bone  and  contains  the  sacral  nerve  roots  and  the  filum 


terminale.  The  sacrum  articulates  with  the  iliac  bones  to  form  the  sacral 


Figure  1-5.  Forces  in  the  Pelvic  Ring 
(adapted  from  Kapandii) 
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The  sacroiliac  joints  are  synovial  joints  although  very  little 
movement  takes  place  at  them,  Egund,  et . al . ( 1 9 78 ) •  The  articular  surfaces 
are  rough  and  irregular  with  the  protuberances  on  the  sacrum  fitting  into 
the  depressions  on  the  ilium.  Both  articular  surfaces  are  in  the  shape  of 
a  crescent  and  are  lined  with  cartilage.  The  joint  is  bound  together  with 
some  of  the  strongest  and  shortest  ligaments  in  the  body,  the  primary  one 
being  the  interosseus  sacroiliac  ligament.  The  short  and  long  posterior 
sacroiliac  ligaments,  and  the  sacrotuberous  and  sacrospinous  ligaments 
also  help  to  provide  extensive  and  strong  ligamentous  support  to  this 
joint.  This  extremely  strong  support  is  essential  as  the  weight  of  the 
upper  body  tries  to  drive  the  anterior  portion  of  the  sacrum  down  between 
the  ilia.  Consequently,  the  posterior  portion  of  the  sacrum  would  "seesaw" 
upward  if  it  were  not  for  the  tethering  action  of  these  ligaments  which 
prevent  the  tip  of  the  sacrum  from  moving  away  from  the  ischial 
tuberosity . 

The  pubic  symphysis  is  a  cartilaginous  joint  with  a  disc  of 
f ibrocar t ilage  nesting  between  the  right  and  left  bones.  The  joint  is 
strongly  bound  together  by  the  anterior,  posterior,  superior  and  inferior 
ligaments.  The  pubic  symphysis  is  a  very  strong  joint  and  has  minimal 
mobility  except  during  childbirth  when  water  is  absorbed  into  the  soft 
tissues  allowing  the  female  pubic  bones  to  slide  on  each  other  and  move 
apart . 

The  pelvis,  or  the  pelvic  ring,  consists  of  three  bony  structures, 
the  right  and  left  hip  bone  and  the  sacrum,  which  articulate  at  the 
sacroiliac  and  pubic  symphysis  joints.  It  forms  a  strong  and  rigid 
structure  whose  primary  function  is  to  transmit  forces  from  the  lower 
limbs  to  the  vertebral  column.  Within  the  bony  structure  there  is  a 
pattern  of  bony  trabeculae  which  apparently  correspond  to  these  lines  of 


force. 


Forces  from  the  lower  limbs  are  transmitted  into  the  pelvis 
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through  the  hip  joint  while  forces  from  the  upper  body  are  transmitted 
into  the  pelvis  via  the  lumbosacral  junction  as  shown  in  Figure  1-5. 

In  this  study,  the  motion,  rather  than  the  forces,  of  the  pelvis  will 
be  determined.  In  reviewing  the  literature,  there  appears  to  be  no 
standard  coordinate  system  nor  a  standard  terminology  for  describing  the 
translation  and  rotation  of  the  pelvis  in  space.  The  following  description 
of  pelvic  motion  will  be  used  throughout  this  study. 

In  Figure  1-6  the  anatomical  planes  and  coordinate  axes  which  are 
fixed  in  the  space,  but  move  in  the  direction  of  the  progression  of  the 
subject,  are  shown.  The  translational  motions  are  measured  relative  to  the 
coordinate  system  as: 

(1)  right/left  pelvic  motion  is  positive  to  the  right,  negative 

to  the  left  and  is  measured  along  the  X  axis 

(2)  anterior/posterior  pelvic  motion  is  positive  anteriorly, 

negative  posteriorly  and  is  measured  along  the  X  axis 

(3)  vertical  pelvic  motion  is  positive  upward,  negative  downward 

and  is  measured  along  the  Z  axis. 

Angular  measurements  are  made  using  the  convention:  when  tne  thumb  of 
the  right  hand  is  placed  in  the  positive  direction  of  an  axis  with  the 
fingers  curled  about  the  axis,  the  fingers  indicate  the  direction  of  a 
positive  rotation ( righ t  hand  screw  convention).  Thus,  the  pelvic 
rotations  are  measured  as: 

(1)  sagittal  pelvic  rotation  (some  authors  call  this  "pelvic 

tilt")  is  positive  when  the  anterior  section  of  the  pelvis 
moves  upward  and  negative  when  the  anterior  section  moves 


downward  about  the  X  axis 
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(2)  coronal  pelvic  rotation  is  positive  when  the  le£t  side  oi 

the  pelvis  moves  upward  and  negative  when  the  right  side 
moves  upward  about  the  Y_  axis 

(3)  transverse  pelvic  rotation  (some  authors  call  this  "pelvic 

rotation")  is  positive  when  the  right  side  of  the  pelvis 
moves  forward  and  negative  when  the  left  side  moves  forward 
about  the  Z  axis. 

Having  described  the  skeletal  structure  of  the  pelvis  and  the 
coordinate  system  in  which  motion  of  the  pelvis  can  be  measured,  a  review 
of  some  of  the  previous  studies  of  pelvic  motion  will  be  presented. 


1.3  Review  of  Previous  Studies  of  Pelvic  Motion 

There  have  been  very  few  studies  in  which  the  motion  of  the  pelvis 
was  the  primary  focus  of  the  study.  In  most  cases  the  primary  interest  was 
in  the  motion  of  the  lower  limbs  and  only  one  or  two  of  the  six  parameters 
which  completely  describe  the  translation  and  rotation  of  the  pelvis  were 
measured.  Only  Latnoreux(1971 )  reported  measuring  all  these  parameters. 
Therefore  this  review  will  discuss  only  those  portions  of  previous  studies 
relating  to  the  measurement  of  pelvic  motion. 

One  of  the  most  comprehensive  studies  of  lower  limb  and  pelvic  motion 
began  in  1947  at  the  University  of  California  at  Berkeley  and  in  1948 
Levens,  et.al.  reported  on  the  transverse  rotations  of  the  lower  limbs 
including  the  pelvis.  The  method  involved  the  insertion  of  stainless  steel 
threaded  pins  into  bony  prominences  of  the  iliac  crest  of  the  pelvis,  the 
adductor  tubercle  of  the  femur  and  the  tibial  tubercle.  Targets, 
consisting  of  light  wooden  rods  with  spheres  at  two  points,  were  attached 
to  the  pins.  Subjects  were  then  filmed  while  walking  using  three 
synchronized  35mm  cine  cameras  located  in  front  of  the  subject, 
perpendicular  to  the  direction  of  walking  and  overhead.  Data  from  12 
subjects  were  analyzed  and  the  authors  estimated  the  accuracy  of  the 
measurement  of  transverse  pelvic  rotation  to  be  2°  for  the  middle  60 
percent  of  the  stance  phase  and  the  maximum  variation,  which  occurred  at 
toe  off,  to  be  5-6°.  The  average  transverse  rotation  was  found  to  be  7.7° 
with  a  maximum  range  of  13.3°  and  a  minimum  range  of  3.0°. 

In  1964  Murray,  et.al.  reported  the  first  in  a  series  of  studies 
designed  to  determine  the  ranges  of  normal  values  for  parameters  used  to 
describe  the  act  of  walking.  The  measurements  included  walking  cycle 
duration,  duration  of  stance,  duration  of  swing,  duration  of  double-limb 
support,  step  and  stride  length,  stride  width,  foot  angle,  sagittal 
rotation  of  the  pelvis,  hip,  knee  and  ankle  and  the  vertical,  lateral  and 
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forward  movement  of  the  trunk  during  level  walking.  Tne  method  used  in 
this  and  subsequent  studies  consisted  of  placing  reflective  tape  targets 
on  the  subject  and  then,  using  interrupted  light  from  a  stroboscope 
flashing  at  20  times/sec,  photographing  the  walking  subject  with  a  Speed 
Graphic  camera.  A  mirror  was  placed  overhead  to  record  transverse  as  well 
as  sagittal  displacements.  The  pelvic  targets  consisted  of  a  strip  of 
reflective  tape  aligned  horizontally  over  the  lateral  aspect  of  the  pelvis 
for  sagittal  motion  and  a  plastic  rod  strapped  securely  to  the  sacrum, 
using  a  divided  leather  belt,  for  motion  in  the  transverse  plane. 

Sixty  male  subjects  were  subdivided  into  five  age  groups  and  each  age 
group  was  further  divided  into  tall,  medium  and  short  categories  so  that 
there  were  four  subjects  in  each  test  group.  The  mean  sagittal  rotation  of 
the  pelvis  was  found  to  be  6°  with  maximum  anterior  tipping  occurring  just 
before  heel  strike  and  maximum  posterior  tipping  occurring  early  in  the 
single  limb  support  phase.  The  average  maximum  transverse  pelvic  rotation 
in  all  sixty  subjects  was  10° +3. 5°.  The  20-25  year  group  showed  the 
greatest  rotation  and  the  60-65  and  30-35  year  groups  showed  the  least 
rotation  in  the  transverse  plane.  The  authors  reported  there  were 
"striking  differences"  in  transverse  pelvic  rotation  between  individual 
subjects  and  yet  there  was  "striking  reproducibility"  on  repeated  trials 
of  the  same  subject.  Their  conclusions  reported 

"The  absence  of  pelvic  rotation  in  some  of  our  normal 
subjects  suggests  that  this  is  not  an  obligatory  element  of 
normal  gait,  but  rather  a  convenient  excursion,  available  when 
walking  and,  perhaps,  attitude  demand  it." 

This  indicates  that  measurements  of  transverse  pelvic  rotation  can  be 

expected  to  vary  widely  between  individual  subjects. 

In  1966  Murray  et.al.  reported  a  second  study  comparing  the  effects 

on  parameters  previously  studied  of  varying  the  walking  speed.  This  study 

was  conducted  using  30  of  the  subjects  from  the  previous  study  and  the 


same  method  of  interrupted  light  photography  was  used  to  record  the  data. 
In  Murray's  studies  free  walking  speed  implies  the  subjects  chose  their 
own  walking  speed.  The  mean  free  walking  speed  was  151+20  cm/sec  and  the 
mean  fast  walking  speed  was  218+25  cm/sec.  They  reported  that  the  sagittal 
pelvic  rotation  was  unaffected  by  walking  speed  and  remained  6°.  The 
transverse  pelvic  rotation  was  11.5°+3.8°  for  free  speed  walking  and 
l6.5°+6.4°  for  fast  speed  walking.  It  should  be  noted  that  the  mean  free 
speed  value  varied  1.5°  between  the  1964  and  1966  studies. 

In  Klopsteg  and  Wilson(1968)  some  of  the  glass  walkway  study  results 
from  the  University  of  California  at  Berkeley  are  cited  which  indicate 
that  pelvic  rotation  in  the  coronal  plane  has  an  amplitude  of 
approximately  8°.  No  indication  of  the  accuracy  of  the  measurements  or  a 
minimum  or  maximum  value  is  cited.  They  also  provide  information  about 
pelvic  rotation  in  the  transverse  plane  measured  using  surgical  pins  which 
was  discussed  earlier  in  this  section. 

In  1969  a  study  of  walking  patterns  in  healthy  men  was  reported  by 
Murray,  et.al.  In  this  study  64  normal  men  in  age  groups  from  20  to  87 
years  old  were  studied  using  the  same  techniques  previously  reported.  The 
subjects  were  each  tested  twice  walking  at  a  free  speed  and  twice  at  a 
fast  speed.  The  mean  free  walking  speed  was  139+23  cm/sec  and  the  mean 
fast  walking  speed  was  195+40  cm/sec.  This  study  only  reported  transverse 
pelvic  rotation  and  did  not  report  on  sagittal  pelvic  rotation.  For  this 
study  the  mean  transverse  pelvic  rotation  was  9°+4°  for  free  speed  walking 
and  14°+6°  for  fast  speed  walking.  The  decrease  from  10°  and  11.5°  for 
free  speed  walking  reported  in  their  previous  studies  is  probably  due  to 
the  inclusion  of  the  higher  age  groups  as  these  studies  have  shown  that 
transverse  pelvic  rotation  decreases  for  normal  men  aged  60  years  and 


In  1970  a  study  of  the  walking  patterns  of  normal  women  was  reported 


by  Murray,  et.al.  In  addition  to  measuring  the  previously  studied 
parameters  at  free  and  fast  speed  walking,  this  study  included  standing 
and  walking  measurements  in  low  and  high  heels.  Low  heels  had  heights  from 
0.25"  to  1.25"  and  high  heels  had  heights  from  2.75"  to  3.75".  The  study 
showed  that  17  subjects  showed  slightly  greater  anterior  tipping  in  the 
sagittal  plane  and  13  subjects  showed  slightly  greater  posterior  tipping 
of  the  pelvis  when  standing  in  the  higher  heels.  When  wearing  low  heels 
the  mean  rotation  of  the  pelvis  in  the  sagittal  plane  was  S3  with  a  2o 
(two  standard  deviations)  range  of  4.4°  to  5.6°  for  free  speed  walking  and 
6.8°  with  a  2o  range  of  5.8°  to  7.8°  for  fast  speed  walking.  In  high  heels 
the  rotation  in  the  sagittal  plane  was  5°  with  a  2c  range  of  4°  to  6°  for 
free  speed  walking  and  4.7°  with  a  2o  range  of  4°  to  5.4°  for  fast  speed 
walking.  The  total  excursions  of  the  pelvis  in  the  sagittal  plane  were 
greatest  when  walking  fast  with  low  heel  shoes.  When  wearing  low  heels  the 
mean  rotation  of  the  pelvis  in  the  transverse  plane  was  9.6°  with  a  2o 
range  of  8.8°to  10.4°  for  free  speed  walking  and  12.8°  with  a  2o  range  of 
11.7°  to  13.9°  for  fast  speed  walking.  In  high  heels  the  transverse 
rotation  was  10°  with  a  2o  range  of  9.3°  to  10.7°  for  free  speed  walking 
and  13°  with  a  2o  range  of  11.8°  to  14.2°  for  fast  speed  walking.  As  in 
men,  the  transverse  rotation  of  the  pelvis  was  mentioned  as  a  more 
individualized  and  therefore  more  varied  component  of  walking. 

The  first  study  of  patients  with  abnormalities  of  the  lower  limbs  or 
pelvis  was  reported  by  Murray,  et.al.  in  1971.  The  patients  studied  had 
unilateral  hip  pain  due  to  either  os teo-arthr it  is  or  avascular  necrosis. 
This  study  reports  the  maximum  sagittal  rotation  of  the  pelvis  as  4°jj).3c' 
for  normal  men  and  a  maximum  of  ll°+0.7°  for  the  patients.  The  transverse 
pelvic  rotation  is  stated  as  9°+0.4°  for  normal  men  and  llo+0.8o  for 
patients  with  unilateral  hip  pain.  Twenty  six  men  were  tested  with  left 
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hip  involvement  in  fifteen  patients  and  right  hip  involvement  in  the 
remaining  eleven.  The  study  contains  information  on  parameters  other  than 
pelvic  rotation,  but  the  conclusions  regarding  pelvic  motion  were: 

"Increased  anterior-posterior  pelvic  tilting,  accomplished 
by  lumbar  flexion  and  extension,  was  consistently  the  major 
means  of  compensating  for  limited  hip  motion  during  walking. 

Anterior  tilting  was  accentuated  as  the  painful  limb  extended 
behind  the  forward-moving  body,  while  posterior  tilting  motion 
was  accentuated  as  the  painful  hip  flexed  forward  during  the 
swing  phase.  Despite  this  exaggerated  pelvic  tilting  motion,  the 
patients  consistently  maintained  greater  anterior  pelvic 
tilting,  and  therefore  greater  lumbar  lordosis,  throughout  the 
walking  cycle  than  did  normal  men.  Increased  transverse  rotation 
of  the  pelvis  also  served  to  compensate  for  limited  hip  motion, 
as  described  by  Steindler." 

This  study  highlights  the  need  for  measuring  pelvic  motion  in  abnormal 
gait  to  understand  the  mechanisms  involved  in  compensating  for  painful  or 
abnormal  joints  in  the  lower  limbs. 

In  1971  the  one  study  of  pelvic  motion  in  which  all  six  parameters, 
three  translational  and  three  rotational,  were  measured  was  reported  by 
Lamoreux.  This  study  encompassed  much  more  than  pelvic  motion,  however 
only  those  parts  of  the  study  relating  to  pelvic  motion  will  be  discussed. 
The  method  of  measuring  pelvic  motion  consisted  of  having  a  subject  walk 
on  a  treadmill  while  attached  to  three  string-type  potentiometer  devices, 
one  of  which  is  shown  in  Figure  1-7.  These  devices  were  placed  beside, 
behind  and  above  the  subject  with  the  strings  attached  to  the  subject's 
pelvis.  As  the  subject  walks  on  the  treadmill,  the  electrical  signals  from 
the  potentiometers  are  recorded.  These  signals  are  directly  proportional 
to  the  length  of  the  strings  and  therefore  the  spatial  coordinates  of  the 
pelvis.  Using  a  computer  to  scale  and  compute  the  recorded  signals,  the 
translational  displacements  and  angular  rotations  of  the  pelvis  during 
walking  were  obtained.  The  graphic  results  of  this  study  are  shown  in 
Figures  1-8  to  1-13.  The  rotational  results  of  this  study  are  comparable 
with  the  results  reported  by  Murray,  et.al.  in  their  series  of  studies. 
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Anteroposterior  (X-axis)  displacement  of  pelvis.  Measurement  was  made 
variously  by  a  single  horizontal  string  attached  to  a  leather  belt  worn  by  the  subject,  by 
two  parallel  horizontal  strings  attached  to  a  leather  belt,  or  by  two  parallel  strings 
attached  to  the  pelvic  frame.  The  effective  point  of  measurement  was  in  the  sagittal 
plane  at  the  level  of  the  anterior  superior  iliac  spines. 

Figure  1-8.  Anterior-Posterior  Pelvic  Displacement 
(from  Lamoreux) 
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•Vertical  (Y-axis)  displacement  of  pelvis.  Measurement  was  made  by  means 
of  two  parallel  vertical  strings  attached  to  the  pelvic  frame.  The  effective  point  of 
measurement  was  in  the  sagittal  plane  approximately  midway  between  the  anterior  and 
posterior  superior  iliac  spines. 

Figure  1-9.  Vertical  Pelvic  Displacement 
(from  Lamoreux) 


In  1973  Waters,  et.al.  reported  a  study  of  translational  motion  of 
the  trunk  during  walking.  As  in  Lamoreux's  study,  cords  were  attached  to 
the  pelvis  to  measure  the  translation  of  the  pelvis  while  the  subject 
walked  on  a  treadmill.  The  cords  measuring  sagittal  and  coronal 
displacement  were  attached  to  S-2  along  the  posterior  midline.  The  cords 
measuring  the  transverse  displacements  were  attached  to  the  lateral  border 
of  the  iliac  crests.  In  a  separate  series  of  tests  reported  in  the  same 
article,  the  authors  attached  accelerometers  to  the  posterior  midline  and 
recorded  accelerations  during  walking  on  a  level  surface.  Five  male 
subjects  aged  21  to  25  years  were  studied.  The  translation  of  the  pelvis 
was:  4.5  cm  in  the  transverse  plane,  2.6  cm  in  the  sagittal  plane  and 
4.2  cm  in  the  coronal  plane.  The  accelerations  were:  0.38  g's  forward  and 
0.35  g's  backward  in  the  sagittal  plane  and  0.36  g's  upward  and  0.28  g's 
downward  in  the  coronal  plane.  The  translational  results  are  comparable 
with  those  reported  by  Lamoreux. 

In  1975  a  pamphlet  was  published  by  Mann,  et.al.  reporting,  via 
graphs  and  charts,  the  results  of  studies  at  the  Gait  Analysis  Laboratory 
in  the  Shriners  Hospital  for  Crippled  Children,  San  Francisco,  California. 
No  discussion  of  the  methods  used  or  the  number  of  subjects  studied  is 
presented,  but  pelvic  rotations  are  shown.  The  transverse  pelvic  rotation 
is  18° ,  the  sagittal  rotation  is  2°  and  the  coronal  rotation  is  9°.  The 
transverse  rotation  is  almost  twice  that  reported  elsewhere  and  the 
sagittal  rotation  is  less  than  one-half  that  reported  by  other 
researchers . 

The  final  study  reviewed  was  conducted  by  Gore,  Murray,  et.al.  and 
reported  in  1975.  The  subjects  were  men  with  unilateral  hip  fusion  and  the 
method  of  measurement  was  the  same  as  reported  in  previous  studies  by 
Murray,  et.al.  Twenty  eight  subjects  were  studied  of  which  twelve  had 


equal  limb  lengths,  sixteen  had  shortened  limbs  on  the  side  of  the  fusion 


Transverse  (Z  axis)  displacement  of  pelvis.  Measurement  was  made  by 
means  of  a  single  string  attached  to  the  pelvic  frame  at  the  level  of  the  anterior  superior 
iliac  spines.  This  string,  when  present,  limited  arm  swing  on  the  right  side. 

Figure  1-10.  Transverse  Pelvic  Displacement 
(from  Lamoreux) 


Rotation  about  a  horizontal  anteroposterior  (X)  axis.  Attachment  ot  tne 
pelvic  flame  to  the  pelvis  was  moderately  rigid  about  this  axis.  Estimated  precision  of 
the  measurement:  within  2  deg. 


Figure  1-11.  Pelvic  Rotation  about  Anterior-Posterior  Axis 
(from  Lamoreux) 
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and  eleven  subjects  wore  shoe  lifts  during  the  walking  trials.  The 
sagittal  rotation  of  the  pelvis  was  reported  to  be  13.80+3.6°  for  the 
patients  compared  to  7.1°+2.4°for  normal  men.  The  transverse  pelvic 
rotation  also  increased  from  11.5°+3.8°  for  normal  men  to  15.3°+4.6°  for 
these  patients.  Alterations  in  pelvic  motion  to  compensate  for  lack  of 
motion  in  one  hip  joint  were  stated  as: 

"The  compensatory  mechanisms  that  augment  the  excursions  of 
the  limb  on  the  side  of  the  fusion  are  excessive  anterior- 
posterior  pelvic  tilt,  excessive  transverse  rotation  of  the 
pelvis, ..." 

The  measurement  of  pelvic  motion  and  of  other  lower  limb  movements 
require  the  use  of  measurement  systems.  The  various  kinematic  measuremen 
systems  used  to  measure  motion  of  the  pelvis  and  lover  limbs  will  be 
discussed  in  the  next  section. 


TIME,  PER  CENT  OF  CYCLE 


-Rotation  about  a  vertical  (Y)  axis.  Attachment  of  the  frame  to  tl»c  pelvis 
was  most  rigid  about  this  axis.  Estimated  precision  of  the  measurement:  within  1  deg. 

Figure  1-12.  Pelvic  Rotation  about  Vertical  Axis 
(from  Lamoreux) 


-Rotation  about  a  horizontal  transverse  (Z)  axis.  Attachment  of  the  frame  to 
the  pelvis  was  least  rigid  about  this  axis.  Estimated  precision  of  the  measurement: 
within  3  deg.  The  possible  errors  due  to  relative  motions  between  pelvis  and  pelvic 
frame  about  this  axis  are  considered  very  significant  in  relation  to  the  measured  dis¬ 
placements  of  the  frame  about  the  axis:  the  measurements  and  the  possible  error  are  of 
comparable  magnitudes,  and  the  measurements  should  be  considered  approximate  only. 

Figure  1-13.  Pelvic  Rotation  about  Transverse  Axis 
(from  Lamoreux) 
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1 . 4  Review  of  Kinematic  Measurement  Systems 

In  order  to  select  a  method  of  measuring  the  motion  of  the  pelvis 
during  walking,  a  review  of  the  kinematic  measurement  systems  used  by 
other  researchers  was  made.  Certain  systems  were  excluded  from  this 
review  because  they  were  deemed  inappropriate  for  this  study.  The  use  of 
invasive  systems,  such  as  the  surgical  pins  used  in  Levens,  et.al.,  were 
eliminated  because  they  would  require  the  assistance  of  a  surgeon  to 
install  the  pins  and  the  general  discomfort  and  pain  they  cause  the 
subjects.  Those  measurement  systems  used  in  measuring  forces,  the  kinetics 
of  joints  and  limbs,  were  not  considered  as  this  study  was  concerned  with 
the  motion,  or  kinematics,  of  the  pelvis.  These  systems  include  various 
walkways,  force  plates  and  foot  switch  devices. 

The  kinematic  measurement  systems  will  be  categorized  as  follows: 
photographic,  photogrammetric ,  polarized  light  and  photodetector, 
television,  and  body  contact  systems.  The  discussion  of  these  systems  will 
not  present  complete  and  detailed  explanations  of  each  system.  These 
details  are  available  in  either  Grieve,  et.al. (1975)  or  the  articles 
published  which  report  on  these  systems.  The  systems  will  be  explained  in 
general  and  some  advantages  and  disadvantages  of  each  will  be  presented. 
l.A.l  Photographic  Systems 

The  interrupted  light  method  was  introduced  by  tlarey(1895)  and  is 
still  used.  This  method  requires  placing  markers  on  various  anatomical 
landmarks  on  the  subject  and  then  photographing  the  subject  as  he  walks 
with  a  single  plate  camera.  A  rotating  disc  placed  in  front  of  the  lens 
produces  multiple  exposures  on  the  film  which  are  then  analyzed. 

Fischer ( 1 906 )  and  Bernstein (  1934)  modified  the  method  by  attaching  small 
electric  lamps  to  the  subjects  and  having  them  walk  in  darkened  rooms.  The 
studies  of  Murray,  et.al. (1964, 1966, 1970, 1971 , 1975)  have  replaced  the 
lights  and  rotating  shutter  with  reflective  tape  markers  illuminated  by  a 


stroboscope  which  flashes  at  20  times/sec. 


All  interrupted  light  systems  require  manual  data  reduction  which  is 
a  time  consuming  process.  This  technique  can  suffer  from  parallax  errors 
if  the  subject  moves  out  of  the  specified  plane  of  motion.  It  can  produce 
very  good  results  for  movements  in  one  plane,  but  overlapping  movements 
can  cause  confusion.  It  also  requires  subjects  to  walk  in  a  darkened  room. 
Eberhar t ( 195 1 )  stated  that  he  believed  the  interrupted  light  system  was 
"not  particularly  useful  in  evaluation  of  gait",  but  Murray,  et.al.  have 
based  many  studies  on  this  technique. 

The  most  common  photographic  technique  in  use  has  been  cine 
photography.  This  method  was  pioneered  by  Muybridge ( 1 904 )  in  his  study  of 
human  movements.  It  was  the  principal  method  used  in  the  University  of 
California  at  Berkeley  study  and  its  use  there  is  evaluated  in  Eberhart 
and  Inman(1951).  In  this  method  markers  are  placed  on  the  desired 
anatomical  landmarks  of  the  subject  and  generally  two  synchronized  cine 
cameras  are  used  to  record  the  data.  In  some  studies  mirrors  have  been 
placed  in  a  position  for  transverse  plane  movements,  thus  allowing  three 
dimensional  studies. 

The  use  of  modern  lighting  and  cameras  have  greatly  improved  the 
accuracy  of  this  method.  Also,  mathematical  techniques  for  correcting 
parallax  have  been  incorporated  in  the  data  reduction  methods  further 
improving  the  accuracy.  The  manual  reduction  of  data  from  cine  film  is 
still  the  major  disadvantage  to  this  system.  Attempts  have  been  made  to 
remove  this  manual  labor  using  computer  based  data  reduction  systems  as 
reported  by  Kasvand ( 19 76 )  and  Pepoe(1970).  The  systems  use  optical 
scanners  or  fiber  optics  to  scan  the  developed  film  for  marker  location 
information.  These  systems  still  appear  to  be  in  the  development  stage. 
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In  spite  of  the  great  amount  of  manual  effort  required  to  obtain  data 
from  photographic  systems,  they  have  played  an  important  role  in 
locomotion  studies  and  continue  to  be  used.  However,  the  number  of 
subjects  which  can  be  studied  and  the  number  of  tests  which  can  be  carried 
out  is  limited  by  the  labor  available  for  data  reduction.  If  fully 
automated  methods  for  data  reduction  can  be  developed,  these  systems  still 
will  not  provide  immediately  available  data  for  analysis  as  the  film  must 
be  processed  and  the  cost  of  film  and  film  processing  can  be  appreciable. 

1 . A . 2  Photograrametric  Systems 

Photogrammetry ,  or  stereophotogrammetry ,  has  been  used  in  surveying 
to  obtain  very  accurate  location  measurements.  The  technique  involves 
taking  simultaneous  photographs  of  an  object  in  space.  If  the  base 
distance  separating  the  two  cameras  and  the  focal  length  of  the  lens  of 
each  camera  are  known,  then  the  third  dimension  can  be  derived  from  the 
two  planar  measurements.  This  is  accomplished  by  placing  the  negatives  in 
a  stereocomparator  and,  after  properly  calibrating  the  device,  reading  the 
three  dimensional  coordinates  of  the  object  from  the  projected  image.  To 
obtain  accurate  results  very  sharply  defined  photographic  images  must  be 
used  and  in  movement  studies  this  may  prove  difficult  as  movement  tends  to 
blur  the  images.  Ayoub(1970)  used  this  technique  to  study  hand  and  arm 
movements  and  claimed  to  measure  these  movements  to  an  accuracy  of  2S,. 
study  of  a  seated  operator  moving  a  foot  pedal  by  Bullock(1974 )  also  used 
photogrammetry  to  obtain  data  and  an  accuracy  of  2%  was  claimed  for 
movement  rates  up  to  30  cm/sec. 

As  with  photographic  methods,  the  manual  labor  involved  in  data 
acquisition  is  considerable.  There  is  some  reduction  as  the  method 
involves  obtaining  all  spatial  coordinates  from  only  one  image  instead  of 
the  two  or  three  images  used  in  interrupted  light  or  cine  film  systems. 

Although  very  accurate  three-dimensional  position  data  can  be  obtained, 
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the  cameras  must  be  precisely  aligned  and  this  is  normally  a  time 
consuming  task  requiring  the  use  of  precision  surveying  equipment.  The 
stereocomparator  is  also  a  very  costly  piece  of  equipment  and  the  expense 
involved  may  not  be  justified  for  the  results  which  are  obtained  by  this 
technique. 

1.4.3  Polarized  Light  and  Photodetector  Systems 

The  general  method  using  polarized  light  to  measure  movement  was 
reported  almost  simultaneously  by  Grieve  (1969)  and  Reed  and 
Reynolds ( 1969 ) .  Additional  research  has  been  carried  on  by 
1-litchelson  ( 19  75 )  at  the  University  of  Loughborough  to  refine  this 
technique.  A  diagram  of  the  University  of  Loughborough  system  is  shown  in 
Figure  1-14  and  the  discussion  will  describe  this  system  which  is  similar 
to  the  methods  used  in  all  the  systems. 

Polarized  light  is  generated  by  passing  light  from  a  DC  powered  light 
source  through  a  polaroid  disc  so  that  twice  every  revolution  the  plane  of 
polarization  is  rotated  through  180°.  The  transducers,  placed  at  selected 
anatomical  landmarks  on  the  subject,  consist  of  a  matched  pair  of 
photodiodes  connected  in  opposition  to  each  other  and  covered  by  polaroid 
filters.  The  filters  are  positioned  such  that  the  planes  of  polarization 
are  at  right  angles  to  each  other.  Thus  any  non-polarized  light  received 
by  the  photodiodes  is  equal  in  intensity  and  the  output  signal  from  the 
pair  is  nil.  Polarized  light  emitted  by  the  rotating  source  is  received  by 
one  cell  and  extinguished  at  the  other  in  an  alternating  fashion  and 
produces  a  sinusoidal  output  voltage.  A  reference  photocell  is  used  to 
detect  a  reference  mark  on  the  rotating  Use  and  produce  a  voltage  pulse 
each  time  the  mark  passes  the  photocell. 

The  electronic  circuitry  has  been  designed  to  initiate  a  linear 
voltage  ramp  when  the  reference  pulse  is  detected.  This  ramp  is  halted 
when  the  sinusoidal  signal  from  the  photodiode  transducer  passes  through 
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zero  in  a  negative  going  sense.  This  voltage  ramp  value  is  then  stored,  in 
a  sample  and  hold  circuit,  and  represents  the  angular  displacement  of  the 
transducer  with  respect  to  the  light  source.  This  output  voltage  is 
updated  at  every  revolution  of  the  disc,  in  this  system  150  times/sec. 
Mitchelson  reported  a  noise  level  of  0.17%  and  the  linearity  as  +0.1°  in  a 
total  range  of  180°.  In  addition  to  angular  displacement,  angular  velocity 
can  be  obtained  by  including  additional  sample  and  hold  and  difference 
amplifier  circuits.  This  technique  is  a  relatively  inexpensive  method  for 
obtaining  the  relative  angular  position  of  two  body  segments,  however  it 
cannot  measure  absolute  rotations  or  positions  of  a  single  body  segment. 
Also,  the  receivers  must  be  attached  to  the  body  and  a  power  source  for 
these  must  be  carried.  This  system  has  served  to  popularize  angle-angle 
diagrams  as  a  technique  for  analyzing  lower  limb  motion. 

A  commercial  system,  SELSPOT,  has  been  developed  using  a  continuous 
light  spot  position  sensor  to  measure  the  two  dimensional  coordinates  of  a 
light  source,  Lindholm(1974)  and  Selcom( 1975) .  A  large  area  silicon  photo 
diode  sensor  has  been  manufactured  by  United  Detector  Technology  Inc.  in 
both  single  axis  and  dual  axis  versions.  The  sensor  produces  analog 
signals  which  correspond  to  the  light  spot  image  position  on  the  sensor 
surface.  Light  emitting  diodes(LED's)  are  placed  over  anatomical  locations 
on  the  subject  to  provide  the  light  source  which  is  detected  by  the 
sensor.  The  LED's  are  switched  on  to  provide  a  short  pulse  of  light  and 
special  noise  suppressing  and  linearizing  circuits  are  used  to  produce  the 
x,  y  coordinates  of  the  LED.  To  monitor  more  than  one  LED,  time  division 
multiplexing  is  required  and  by  using  two  sensors  three  dimensional 
measurements  can  be  obtained.  The  accuracy  of  the  system  is  largely 
dependent  on  the  signal  to  noise  ratio  in  the  sensor  and  signal  processor, 
but  is  also  a  function  of  the  incident  power  from  the  LED's.  If  the 
incident  power  is  on  the  order  of  1  mW  a  resolution  of  one  part  in  ten 


Figure  1-15.  CODA  Optical  System 
(from  Grieve) 
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thousand  is  quoted.  For  the  distances  involved  in  most  locomotion  studies, 
currently  available  LED's  cannot  produce  this  power.  However,  Selcom  has 
obtained  resolution  of  10~^  at  a  range  of  6  m  within  a  cube  of  3  m  sides 
using  30  LED's  and  sampling  at  a  frequency  of  200  Hz.  One  advantage  of 
SELSFOT  is  the  output  of  independent  signals  for  each  marker  which 
eliminates  confusion  between  adjacent  markers  which  can  occur  in  other 
systems.  The  system  does  require  a  power  source  and  switching  circuits  to 
operate  the  LED's  and  some  difficulty  in  attaching  the  markers  to 
anatomical  landmarks  can  be  encountered  if  it  is  necessary  to  strap  the 
markers  to  the  subject. 

Another  system  based  on  photo  detectors  is  being  developed  by 
Mitchelson( 1975 ) .  The  system,  C0DA(Car tesian  Optoelectronic  Dynamic 
Anthropometer ) ,  uses  an  encoded  optical  mask  which  is  placed  in  front  of 
an  array  of  silicon  photodetectors.  Point  sources  of  light  are  focused  by 
cylindrical  optics  into  a  line  image  on  this  array  as  shown  in  Figure  1- 
15.  Any  movement  of  the  point  source  at  right  angles  to  the  orientation 
of  the  line  image  causes  the  line  image  to  shift  across  the  focal  plane. 
The  photodetectors  behind  the  optical  mask  are  arranged  to  give  a  direct 
digital  readout  of  the  line  image,  and  thus  point  source,  position. 
Additional  accuracy  has  been  achieved  through  the  use  of  an  analog  vernier 
and  rows  of  transparent  wedges  in  the  mask.  The  final  resolution  is 
designed  to  be  1  part  in  4096. 

By  using  three  cameras,  three  dimensional  position  data  can  be 
obtained.  Two  cameras,  separated  by  a  known  distance,  measure  the  two 
horizontal  position  coordinates  using  stereophotographic  principles  and 
the  third  camera  measures  vertical  position.  Laser  LED's  will  be  used  as 
light  source  markers  in  this  system  to  provide  greater  illumination  power 
at  the  detector  and  should  show  better  resolution  than  the  SELSPOT  system. 
Precise  alignment  of  the  cameras  and  the  optical  lens  and  mask  will  be 


necessary  to  achieve  the  desired  accuracy.  The  resolution  will  also  be 
affected  by  the  power  and  angle  of  radiation  of  the  light  sources. 
Mitchelson  plans  to  have  the  power  supply  for  the  I.ED's  and  a  short  range 
radio  receiver  carried  in  a  belt  pack  on  the  subject.  The  receiver  will 
synchronize  the  light  pulses  from  signals  transmitted  from  the  camera 
control  console.  The  subject  will  then  be  free  to  move  about  without  any 
trailing  wires  to  hinder  his  movements.  This  freedom  of  movement  and  the 
high  precision  of  measurement  possible  are  the  major  advantages  of  this 
system. 

1.4.4  Television  Systems 

Television  systems  for  measurement  of  movement  have  been 
independently  developed  at  the  University  of  Manitoba  by  Winter, 
et.al. (1974a, b) ,  the  University  of  Strathclyde  by  Jarrett (1976)  and  other 
locations.  The  primary  motivation  in  the  development  of  these  systems  has 
been  to  reduce  the  manual  labor  involved  in  obtaining  spatial  position 
information.  The  systems  are  based  on  the  principle  that  two  dimensional 
position  information  of  a  point  located  in  the  field  of  view  of  the 
television  camera  can  be  obtained  by  determining  which  rastor 
line (vertical )  the  point  is  on  and  where  the  point  is  located(horizontal) 
on  a  particular  rastor  line.  The  point  must  have  sufficient  contrast  to  be 
clearly  visible,  in  these  systems  visibility  being  defined  as  a  voltage 
level  clearly  discernible  from  other  voltage  levels  exciting  the 
television  screen. 

The  method  used  at  the  University  of  Manitoba  consists  of  following 
the  subject  with  a  television  camera  mounted  on  a  cart  and  recording  the 
output  on  a  TV  recorder.  The  tape  is  then  replayed  on  a  video  recorder 
with  an  interface  to  convert  the  data  to  digital  form  for  storage  on  a 
computer.  Computer  programs  then  reduce  the  date,  calculate  the  absolute 


coordinates  of  the  center  of  the  markers,  make  the  necessary  corrections 
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for  parallax  and  output  the  results.  The  data  conversion  is  accomplished 
in  the  same  amount  of  time  that  was  required  to  record  the  data(ie.  7 
seconds  of  gait  data  is  converted  and  output  in  7  seconds).  This 
represents  a  major  reduction  in  time  and  effort  from  cine  or  other 
photographic  methods.  The  major  source  of  error  is  uncorrected  parallax 
which  occurs  when  the  subject  does  not  walk  in  a  straight  line  and  the 
marker  is  at  the  edge  of  the  field  of  view  of  the  camera,  but  the  reported 
error  is  not  greater  than  2  mm. 

The  University  of  Strathclyde  system  uses  two  fixed  position  cameras, 
located  perpendicular  to  the  walking  direction  and  ahead  of  the  subject, 
similar  to  the  location  of  most  cine  film  systems.  The  television  cameras 
are  directly  interfaced  to  the  computer  so  that  essentially  real  time  data 
acquisition  and  processing  is  possible.  The  computational  times  prohibit 
displaying  information  at  the  exactly  the  time  it  is  being  recorded,  but 
che  few  seconds  of  delay  are  insignificant  when  compared  to  cine  film 
processing  times.  This  system  also  allows  an  immediate  repetition  of  a 
particular  test  if  any  problems  arise  during  the  test  session  as 
preliminary  results  are  available  for  analysis. 

Although  the  initial  cost  of  TV  systems  is  much  higher  than 
conventional  cine  film  systems,  primarily  because  of  the  cost  of  the 
supporting  computer,  the  long  term  cost  per  test  is  probably  much  less. 

The  major  advantage  is  the  availability  of  a  system  for  conducting  a  large 
number  of  repetitive  tests  on  a  single  subject  or  testing  a  large  number 
of  subjects.  Most  kinematic  studies  to  date  have  involved  relatively  few 
subjects  and  those  using  a  significant  number  of  subjects  have  taken  years 


to  complete. 
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1.4.5  Body  Contact  Systems 

One  of  the  least  expensive  and  simple  devices  for  measuring  relative 
motion  between  two  body  segments  at  a  joint  is  the  goniometer  as  used  by 
karpovich(1960) .  A  precision  potentiometer  is  mounted  on  a  mechanical 
supporting  bracket  and  the  shaft  is  fixed  to  another  support  bracket.  The 
two  brackets  are  then  fixed  on  either  side  of  a  joint  and  the  variation  in 
resistance  is  directly  proportional  to  the  angle  between  the  brackets. 

When  suitable  calibrated,  no  data  reduction  is  necessary  as  the  angle  is 
output  directly  and  can  be  recorded  on  a  simple  chart  recorder.  More  than 
one  goniometer  can  be  incorporated  in  a  single  system  and  one  of  the  more 
complex  systems  was  the  exoskeleton  devised  by  Lamoreux(1971 )  to  measure 
the  rotations  of  the  hip,  knee  and  ankle.  This  system  required  precise 
alignment  of  the  hip  linkages  to  ensure  that  the  effective  center  of  the 
device  coincided  with  the  center  of  the  hip  joint.  Earlier  linkages  used 
at  the  knee  also  required  careful  alignment,  but  later  linkage  systems 
were  devised  which  did  not  require  precise  alignment  as  reported  in 
Radclif f e ( 19 74 ) .  These  devices  are  called  self-aligning  goniometers  and 
provide  a  simple  method  for  obtaining  direct  measurement  of  the  relative 
angles  at  a  joint. 

Another  simple  device  cased  on  the  potentiometer  measures  the 
absolute  or  relative  position  of  a  point  on  the  body.  One  end  of  a  string 
is  attached  to  the  shaft  of  the  potentiometer  and  the  other  end  to  a 
desired  anatomical  point  on  the  subject's  body.  As  the  subject  moves  the 
output  of  the  potentiometer  is  proportional  to  the  position  of  this  point 
referred  to  some  initial  position.  This  method  was  used  by  Lamoreux(1971 ) , 
as  discussed  in  the  previous  section,  to  measure  the  translation  and 


rotation  of  the  pelvis  of  a  subject  walking  on  a  treadmill.  The  major 
source  of  error  is  sag  in  the  string,  but  the  method  is  simple  and 


inexpensive . 
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A  similar  device  was  used  by  Dril  lis  ( 1 57  5b )  to  measure  the  horizontal 
velocity  of  the  trunk.  In  this  study  a  DC  generator,  or  tachograph,  was 
driven  by  a  string  attached  to  the  subject  instead  of  a  potentiometer.  The 
output  voltage  is  directly  proportional  to  the  velocity  of  the  point  on 
the  body  to  which  the  string  is  attached.  Molen(1972)  modified  this  method 
to  record  the  instantaneous  velocity  of  the  body's  center  of  gravity.  He 
prerecorded  pulses  at  a  fixed  frequency  and  constant  speed  on  magnetic 
tape  which  he  then  attached  to  the  front  and  rear  of  a  subject.  The  tape 
was  looped  over  guides  and  a  tape  read  head  and  the  subject  walking  moved 
the  tape  over  the  read  heads.  The  output  frequency,  converted  to  a  DC 
voltage,  was  directly  proportional  to  the  instantaneous  velocity  of  the 
tape  passing  over  the  read  head  and  therefore  the  instantaneous  velocity 
of  the  subject. 

These  devices  are  simple  and  inexpensive;  however  they  provide  only 
limited  information  on  the  kinematics  of  the  lower  limbs  and  pelvis  during 
locomotion.  Other  methods  in  addition  to  those  discussed  in  this  review 
have  been  used  or  proposed  for  use  in  kinematic  studies  of  locomotion  and 
body  movement.  These  include  magnetometers  proposed  by  Page(1973),  cine 
radiographic  techniques  by  Eberhart ( 1951 )  and  other  techniques  which 
either  require  invasive  methods  or  did  not  seem  practical  to  the  author 
for  use  in  this  study. 

The  other  body  contact  method  consistently  mentioned  in  the 
literature  was  the  use  of  accelerometers.  The  review  of  this  literature 


will  be  presented  in  the  final  section  of  this  chapter. 
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(o)  ACCELEROMETER  MOUNTING  ASSEMBLY 


(b)  ACCELEROMETER  MOUNTING  ASSEMBLY  ON  SHANK 


Figure  1-16.  Accelerometer  Mounting 

(from  Ryker  &  Bartholomew) 
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1 . 5  Review  of  Previous  Studies  using  Accelerometers 

A  number  of  studies  iiave  been  made  in  which  accelerometers  were  used 
to  measure  different  aspects  of  human  locomotion  and  other  medical 
applications  in  which  acceleration  can  be  used  as  a  diagnostic  aid.  This 
review  will  summarize  only  those  studies  which  relate  directly  to  the 
measurement  of  some  aspect  of  human  locomotion  or  movement  of  other  bodv 
members  in  which  accelerometers  were  used  as  the  principal  measuring 
device . 

Many  different  measurement  systems  were  used  in  the  comprehensive 
study  of  human  locomotion  at  the  University  of  California  at  Berkeley.  In 
1951  Ryker  and  Bartholomew  reported  on  the  use  of  ao  elerometers  to 
measure  the  angular  acceleration  of  the  shank,  of  either  a  normal  or 
prosthetic  leg,  and  the  linear  acceleration  of  the  shank  in  the  sagittal 
plane.  These  measurements  would  then  be  used  to  evaluate  the  performance 
of  various  knee  joint  mechanisms  in  prostheses.  During  swing  phase,  the 
knee  joint  moment  is  a  function  of  these  parameters  and  if  direct 
measurement  could  be  accomplished  the  calculation  of  knee  moment  would  be 
simplified.  The  accelerometer  mounting  and  the  method  of  mounting  the 
device  on  the  shank  are  shown  in  Figure  1-16.  Very  extensive  tests  of  the 
range  and  sensitivity  of  the  system  as  well  as  frequency  response  testing 
of  the  system  were  reported  in  the  study.  The  estimated  accuracy  of  the 
system,  for  both  angular  and  linear  measurements,  was  6?..  Typical  test 
data  for  one  subject  were  included  in  the  report  and  it  was  pointed  out 
that  there  was  no  method  to  correct  the  data  for  the  effect  of  gravity 
unless  simultaneous  cine  film  data  were  taken  and  the  position  information 
on  the  shank  obtained  from  analysis  of  the  cine  film.  The  report  concluded 
from  these  tests  that  for  the  determination  of  energy  transfers  occurring 
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in  the  lower  limbs  during  walking 

"...for  the  foot,  shank  and  thigh  the  required  number  of 
accelerometers  is  too  great  to  make  the  method  practical.  Motion 
picture  data  and  grapho-numerical  differentiation,  however  , 
provide  all  the  necessary  kinematic  quantities  with  sufficient 
accuracy . .  . .  " 

They  go  on  to  state  that  for  evaluating  knee  joint  mechanisms 

"Motion  picture  data  and  grapho-numerical  differentiation 
may  be  used  instead,  but  the  time  required  to  produce  results 
and  the  loss  of  accuracy  make  this  method  impractical  for 
extensive  use  in  rapid  evaluation  of  knee  mechanisms. 

Accelerometers,  on  the  other  hand,  are  well  adapted  to  this 
purpose  and  the  use  of  this  method  is  indicated." 

This  study  seems  to  indicate  that  except  where  acceleration  is  the  primary 

quantity  to  be  measured  other  gait  analysis  methods  are  more  suitable  for 

acquiring  data. 

In  1966  Moffat  also  reported  using  accelerometers  to  determine 
prosthetic  knee  moment.  The  apparatus  included  a  potentiometer  to  measure 
the  knee  angle  and  this  signal  was  differentiated  to  provide  the  knee 
angular  velocity.  The  accelerometers  were  used  to  measure  the  angular 
acceleration  of  the  shank.  The  method  also  required  determining  the  mass, 
radius  of  gyration  and  centroidal  distance  for  the  prosthesis  being 
tested.  These  were  determined  by  weighing  the  prosthesis,  then 
oscillating  it  as  a  simple  pendulum  and  measuring  the  period  of 
oscillation  and  finally  suspending  it  to  determine  the  center  of  mass. 
After  these  quantities  were  determined,  the  accelerometer  apparatus  was 
attached  to  the  subject  who  then  walked  a  straight  and  level  distance 
while  data  were  recorded  on  chart  recorders  through  a  cable.  Eight 
subjects  were  tested  and  several  suggestions  for  improving  knee  joint 
prostheses  are  made.  The  author  concludes  with 

"...causes  the  amputee  to  alter  the  term  R,  the 
acceleration  of  the  knee  joint.  In  this  way  a  gait  defect 
initiating  at  the  knee  joint  is  transmitted  to  the  pelvis  and 
the  entire  body." 

This  conclusion  seems  to  indicate  that  variations  in  pelvic  motion  could 


Note  that  the  sensitive  axis  of  occelerometer 
A1  is  colinear  with  that  of  accelerometer  A3 

T  — Aa 1  +  Baz  +  C(a3  -  a1 ) 

Where 
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and  are  the  linear  accelerations 

recorded  by  accelerometers  A1.A2.A3 
respectively 


Figure  1-17.  The  BRADU  Method 
(from  Judge) 
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indicate  lower  joint  defects. 

A  further  refinement  of  these  techniques  was  implemented  in  1976  by 
Judge  at  the  Biomechanical  Research  and  Development  Unit  in  Roehampton. 
The  purpose  of  this  study  was  to  investigate  and  quantify  the  effects  of 
making  adjustments  to  current  knee  control  units  installed  in  above  knee 
artificial  legs  and  to  predict  desirable  characteristics  for  future 
designs.  The  apparatus  was  designed  to  be  used  on  both  above  and  below 
knee  prostheses.  In  this  study  three  accelerometers  were  used  to  provide 
the  necessary  data  for  computing  the  swing  phase  knee  torque  mounted  as 
shown  in  Figure  1-17.  The  accelerometer  outputs  were  input  directly  to  a 
set  of  suitable  scaled  analog  computers  and  the  results  were  therefore 
available  in  real  time.  No  results  of  patient  testing  were  reported, 
however  this  method  corrects  some  of  the  errors  found  in  the  earlier 
studies  and  should  produce  useful  information. 

In  1962  Liberson,  et.al.  reported  a  study  in  which  accelerometers 
were  attached  not  only  to  the  shank,  but  also  to  the  chest  and  thigh.  Tin 
accelerometers  were  attached  to  the  shank  to  obtain  angular  acceleration 
information  and  linear  accelerations.  This  study  resulted  from  Liberson's 
original  development  in  1936  of  a  technique  for  directly  recording 
accelerations  of  the  body.  This  is  the  earliest  reference  in  the 
literature  of  accelerometers  being  used  to  study  body  movement.  The  study 
of  1962  reports  on  early  results  from  testing  10  hemiplegic  patients  anc 
10  above  knee  amputees.  The  resulting  acceleration  patterns  were  compared 
with  normal  subjects  and  the  authors  indicate  that  the  method  would  be 
suitable  for  training  to  improve  the  gait  of  the  patients.  No  turther 
results  have  been  published  to  indicate  if  this  system  is  still  being 
utilized  for  this  purpose. 


(NORMALIZED) 


Harmonic  analysis  of  vertical  accelerations,  level  walking.  Curves 
represent  mean  values 


Figure  1-18.  Harmonic  Analysis 
(from  Gage) 
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A  similar  study  to  use  acceleration  as  an  indicator  of  normal  and 
abnormal  gait  was  reported  by  Gage  in  1964.  In  this  study  accelerometers 
were  attached  to  the  trunk  at  the  S-2  level  to  measure  accelerations  in 
the  vertical  and  anterior-posterior  directions.  Additional  accelerometers 
were  attached  to  the  shank  to  measure  the  angular  acceleration  of  the 
shank  in  the  sagittal  plane.  The  acceleration  patterns  for  both  normal 
subjects  and  amputees  are  presented  and  the  concept  of  using  harmonic 
analysis  to  analyze  gait  defects  is  presented.  The  results  of  harmonic 
analysis  of  the  vertical  acceleration  for  amputees  and  normal  subjects  is 
shown  in  Figure  1-18.  The  author  reports  on  some  preliminary  correlation 
of  specific  gait  defects  with  specific  odd  harmonics  however,  he  states 
that  they  are  based  on  a  limited  number  of  subjects  and  that  further 
investigations  should  be  made. 

This  method  of  recording  body  accelerations  and  analyzing  the 
resulting  patterns  using  harmonic  analysis  has  been  actively  pursued  at 
the  University  of  Iowa  by  Smidt.  The  first  results  were  reported  in  1971 
for  fifteen  normal  adults,  seven  normal  boys  and  five  patients  with  gait 
defects.  The  apparatus  consisted  of  three  accelerometers  which  were 
mounted  to  the  sacrum  using  double  sided  adhesive  tape  and  a  leather  belt 
to  provide  additional  stabilization.  A  footswitch  was  used  in  conjunction 
witii  the  accelerometers  to  record  heel  strike  information.  This  study 
introduced  the  harmonic  ratio,  obtained  by  dividing  the  coefficients  of 
the  even  harmonics  by  the  coefficients  of  the  odd  harmonics,  as  an 
indicator  of  the  smoothness  of  the  gait  pattern.  The  following  scale  was 
an  attempt  to  classify  the  smoothness  of  walking:  greater  than  2.00  is 
normal,  1.50  to  2.00  is  fair,  1.00  to  1.49  is  poor,  and  less  than  1.0  is 
very  poor.  Small  groups  of  subjects  using  crutches  and  with  induced 
impairments  were  also  studied  and  the  results  of  these  tests  formed  the 
basis  for  the  harmonic  ratio  scale. 
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A  second  study  of  nineteen  below-knee  amputees  was  completed  by 
Robinson ( 1 9 72 ) .  The  mean  harmonic  ratio  was  1.63  for  the  anterior- 
posterior  and  1.55  for  the  vertical  accelerations.  These  values  agree  with 
the  scale  established  in  the  first  study  and  the  author  states  that  these 
low  values 

"....have  an  implication  demonstrating  the  need  for 
improved  gait  training,  proper  fitting  of  prostheses,  and 
improved  mass  distribution  properties  in  prostheses." 

The  comment  is  also  made  that  the  method  of  performing  harmonic  analysis 

on  the  acceleration  patterns  is  cumbersome  and  time  consuming  indicating 

the  lack  of  modern  computer  facilities  at  that  time.  This  study  was 

reported  in  the  literature,  Robinson,  et.al. (1977) . 

The  efforts  to  correct  and  automate  the  data  analysis  of  acceleration 

patterns  were  published  in  1977  by  Smidt,  et.al.  The  outputs  of  the 

accelerometers  and  footswitches  were  input  directly  to  a  PDP-12  computer 

through  an  amplifier-power  supply  interface.  The  computer  was  set  to  begin 

sampling  data  automatically  at  the  second  right  heelstrike  and  collected 

data  for  one  complete  cycle.  Three  walking  cycles  were  collected  and 

stored  on  magnetic  tape  for  processing.  The  initial  processing  to  compute 

temporal  and  distance  factors  relating  to  walking  and  the  peak 

acceleration  values  required  about  15  minutes  per  patient.  The  author 

does  not  indicate  how  much  time  was  required  to  obtain  the  harmonic 

analysis  which  completed  data  processing,  but  this  was  also  accomplished 

with  the  computer.  This  study  included  a  test  of  the  accuracy  of  the 

accelerometers  in  which  the  displacement  of  the  accelerometer  package  was 

photographed  while  simultaneously  recording  the  output  of  the 

accelerometers.  The  triaxial  accelerometer  was  moved  by  hand  in  a  straight 

line  on  a  horizontal  vinyl  surface  for  distances  from  35.6  to  45.7  cm.  The 

displacement  data  were  then  double  differentiated  to  obtain  velocity  and 

acceleration  curves  and  the  results  compared  with  the  accelerometer  output 


TIME  (Sec) 


Figure  1-19.  Accelerometer  and  Displacement  Test 
(from  Smidt,  et.al . } 


as  shown  in  Figure  1-19.  The  error  for  displacement  is  the  smallest  and 
the  authors  report  that  the  increasing  discrepancy  from  displacement  to 
velocity  to  acceleration  is  due  to  the  magnification  of  minute  errors  in 
the  photographic  procedure  which  are  then  magnified  at  each  stage  of  the 
differentiation  procedure.  This  is  in  agreement  with  the  statements  of 
other  authors  that  integration  decreases  errors  while  differentiation 
magnifies  them.  Preliminary  results  of  using  the  system  to  evaluate  the 
gait  patterns  of  tibio-f emoral  knee  implants  was  reported.  The  subjects 
were  tested  preoperatively  and  at  two,  six  and  12  months  following 
surgery.  Twenty  two  patients  with  degenerative  joint  disease  and  24 
patients  with  rheumatoid  arthritis  were  studied  and  the  harmonic  ratio  of 
the  degenerative  group  improved  to  a  value  of  nearly  2.5  which  Smidt 
classifies  as  fair  to  good.  The  rheumatoid  arthritics  value  was  not 
reported,  but  it  was  "less  impressive." 

Another  investigation  using  accelerometers  was  begun  at  the 
University  of  Milan,  Italy  by  Cavagna,  Saibene  and  Margaria  in  1961.  They 
reported  the  development  of  a  three-directional  accelerometer  to  be  used 
in  analyzing  body  movements  by  recording  accelerations.  The  first  results 
were  reported  in  1963  in  which  the  accelerometer  was  mounted  on  the 
sacrum,  using  a  belt,  to  measure  accelerations  and  motion  pictures,  taken 
simultaneously,  were  used  to  record  the  displacement  of  the  center  of 
gravity  of  the  body.  These  data  were  then  used  to  compute  the  external 
work  performed  in  walking.  A  graphic  integration  technique  was  used  to 
obtain  the  velocity  and  displacement  of  the  body.  The  results  of  this 
study  indicate  that  walking  is  most  efficient,  in  terms  of  work  done,  at 
4  km/hr  and  slowing  down  or  speeding  up  from  this  speed  requires  an 
increased  energy  expenditure.  This  group  reported  a  second  study 
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of  work  in  1966  using  force  plates  rather  than  accelerometers  in  which 
they  state 

"This  methodfviz  force  plates)  seems  more  convenient  and 
more  direct  than  the  accelerometric  or  the  moving-pictures 
method  employed  in  the  earlier  work." 

In  a  separate  study  of  the  external  work  in  walking,  Gersten ( 1969 ) , 
reported  using  only  accelerometers  and  heel  switches  to  make  the 
measurements  required  to  compute  work.  Three  accelerometers  were  attached 
to  the  sacrum  and  the  acceleration  data  were  punched  on  computer  cards  bv 
a  digital  interface  unit  and  card  punch  machine.  The  cards  were  then  used 
to  input  the  data  to  the  computer  for  processing.  The  accelerometers  were 
aligned  by  installing  shims  to  ensure  that  the  vertical  accelerometer  was 
aligned  with  the  local  gravity  vector  and  the  acceleration  due  to  gravity 
was  then  added  to  the  output  of  the  vertical  accelerometer.  The  average 
forward  velocity  was  obtained  by  integrating  the  anterior-posterior 
accelerometer  output.  The  errors  in  accelerometer  position  due  to  body 
movement  during  walking  were  corrected  by  assuming  oscillations  of  3°  in 
the  sagittal  plane,  fP  in  the  transverse  plane  and  10°  in  the  coronal 
plane.  The  author  reports  that  the  average  work  values  were  slightly 
higher  than  those  reported  by  Cavagna,  et.al.  This  system  was  also 
reported  to  be  capable  of  reducing  the  accelerometer  data  to  external  work 
and  print  the  results  "while  the  subjects  were  walking." 

The  first  study  to  obtain  position  information  from  accelerometer 
measurements  was  begun  at  Oxford  in  1970  by  Morris  and  results  were 
published  in  1973.  The  purpose  of  this  study  was  to  investigate  the 
feasibility  of  acceleromerry  as  a  technique  for  determining  angular  and 
translational  positions  of  a  body  segment,  in  this  case  the  shank.  Five 
accelerometers  were  attached  to  the  shank  and  linear  acceleration, 
velocity  and  position  and  angular  velocity  and  position  of  the  shank  were 
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determined  in  two  dimensions(sagittal  plane  motion).  The  accelerometer 
apparatus  is  shown  in  Figure  1-20.  The  mathematical  analysis  used  is 
similar  to  that  discussed  in  chapter  2  of  this  study,  although  simplifying 
assumptions  were  made  to  reduce  it  to  two  dimensions.  The  signals  were 
recorded  on  magnetic  tape  and  analyzed  using  interactive  computer  programs 
in  which  the  operator  selected  single  step  cycles  for  analysis.  This 
study  reported  that  the  angular  and  translational  velocities  of  the  shank 
"reveal  the  most  about  the  gait  of  the  subject."  These  quantities  are 
difficult  to  obtain  accurately  from  standard  cine  film  or  interrupted 
light  studies.  This  study  also  showed  that  accelerometer  data  could  be 
used  to  provide  not  only  acceleration  information,  but  also  velocity  and 
position  information  for  a  body  segment. 

Similar  research  at  the  University  of  Strathclyde  was  reported  by 
Mitchell  in  1975.  In  this  study,  a  six  accelerometer  configuration  for 
measuring  the  position  of  the  shank  in  three  dimensions  was  tested.  The 
basic  theory  used  was  very  similar  to  that  described  in  chapter  2  of  this 
study,  but  a  different  configuration  of  the  accelerometers  was  used  as 
shown  in  Figure  1-21.  The  accelerometer  apparatus  anc.  associated 
electronic  circuitry  were  constructed  and  the  performance  of  the  system 
was  evaluated  on  a  mechanical  four-bar  linkage  device  which  simulated  the 
motion  of  the  human  shank.  No  computer  programs  were  developed  other  than 
those  used  in  the  test  to  compute  angular  acceleration  and  the  correlation 
between  the  calculated  and  measured  accelerations  was  acceptable.  There 
seems  to  have  been  no  further  development  of  this  system. 

A  completely  independent  investigation  into  techniques  of  measuring 
rigid  body  motion  with  accelerometers  was  reported  in  1975  by  Padgaonkar, 
et.al.  The  purpose  of  this  research  was  to  develop  an  all  accelerometer 
measuring  system  to  measure  the  motion  of  the  head  of  either  an 
anthropomorphic  dummy  or  human  volunteer  under  impact  conditions.  The 
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impacts  were  normally  those  associated  with  automobile  accidents  and 
testing  was  carried  out  using  a  sled  rail  facility.  They  reported  that  ir. 
high  impact  environments  the  six  accelerometer  system  will  not  produce 
accurate  results  and  becomes  unstable.  They  therefore  developed  a  nine 
accelerometer  configuration  to  eliminate  the  nonlinear  terms  in  the 
equations  and  allow  direct  integration  of  the  measured  accelerations.  Ir,  a 
letter  Liu(197b)  concludes  that  the  system  of  nonlinear  equations  for  the 
six  accelerometer  configuration  are  unstable  and  further  states 

"...one  can  further  assert  that  no  amount  of  additional 
manipulation  or  clever  placement  of  the  six  accelerometers  would 
yield  a  set  of  equations  which  will  be  stable." 

In  a  second  report  of  this  research  by  Chou  and  Sinha  in  1976  results 
of  testing  the  nine  accelerometer  configuration  are  presented.  This  study 
also  states  that  the  equations  for  the  six  accelerometer  configuration  are 
unstable  and  that  difficulties  with  numerical  integration  methods 
precluded  obtaining  reliable  or  useful  results.  The  study  does  report  on 
the  calculation  of  angular  velocity  of  the  head  and  compares  results 
obtained  from  the  nine  accelerometer  configuration  and  three  high  speed 
motion  picture  cameras.  They  report  good  qualitative  agreement,  but  the 
film  values  are  lower  than  the  accelerometer  values.  The  authors  also 
indicate  that  the  method  has  been  applied  to  studies  of  flexion,  extension 
and  lateral  flexion  of  the  neck  and  results  would  be  reported  in  the 
future. 

Other  body  segments  have  also  been  studied  using  accelerometers.  Ir 
1966  Ayoub  reported  measuring  the  acceleration  and  velocity  of  the  hand. 
The  study  investigated  the  motion  of  the  hand  while  industrial  tasks  of 
moving  different  masses  from  one  location  on  a  workbench  to  another 
location  were  performed.  Accelerometer  measurements  were  integrated  to 
obtain  velocity  information,  but  distance  was  prescribed  in  the  task  to  :e 
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performed.  The  primary  purpose  was  to  determine  when  and  where  the  maximum 
and  minimum  acceleration  and  velocity  occurred  in  performing  these  tasks. 

Other  studies  reported  on  impact  accelerations  which  occur  in  walking 
when  the  heel  strikes  the  ground.  In  1977  Light  and  McLellan  reported  the 
differences  in  accelerations  due  to  footwear.  They  report  that  both  the 
duration  and  peak  acceleration  in  the  tibia  are  affected  by  heel 
construction  and  that  normal  accelerations  of  2-8  g's  occur  in  the  tibia 
when  walking.  Another  study  by  Guenther  in  1968  reported  the  use  of 
accelerometers  to  investigate  impact  vibrations  in  walking  and  running  on 
various  floor  surfaces.  Accelerometers  were  attached  to  the  heel,  pelvis 
and  head  and  accelerations  varied  from  23-31  g's  at  the  heel  to 
1. 1-2.1  g's  at  the  pelvis  to  0.6-1. 1  g's  at  at  the  head.  The  author 
reports  that  accelerations  at  the  heel  are  approximately  equal  for  walking 
and  running,  while  the  running  values  approach  double  those  for  walking  at 
the  pelvis  and  more  than  double  at  the  head. 

This  review  does  not  include  all  the  studies  which  have  used 
accelerometers  to  measure  information  of  medical  or  biomedical  interest. 

It  has  focused  on  those  studies  in  which  accelerometers  were  used  to 
measure  some  kinematic  parameters  of  human  body  movement.  The  principal 
interest  was  in  studies  of  the  lower  limbs  and  body  using  accelerometry . 

The  theory  for  implementing  the  use  of  accelerometers  to  obtain 
kinematic  measurements  in  this  study  will  be  presented  in  the  following 
chapter . 


CHAPTER  2 


THEORETICAL  ANALYSIS 

2.1  Introduction 

2.2  General  Equations  of  Rigid  Body  Motion 

2.3  The  Planar  Eight  Accelerometer  Configuration 

2.4  Derivation  of  the  Rotational  Parameters 

2.5  Derivation  of  the  Translational  Parameters 


2 . 1  Introduction 

This  chapter  presents  the  theoretical  basis  for  the  accelerometer 
measurement  system  developed  and  used  in  this  study.  The  general  equations 
of  rigid  body  notion  are  reviewed  and  the  planar  eight  accelerometer 
configuration  is  developed  from  these  general  equations.  The  rotational 
and  translational  parameters  which  describe  the  motion  of  a  rigid  body,  in 
this  study  the  pelvis,  are  derived  and  the  differential  equations  used  to 
compute  experimental  results  are  developed. 
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2 . 2  General  Equations  of  Rigid  Body  Motion 

This  section  is  not  intended  to  present  a  complete  and  formal 
derivation  of  the  equations  governing  rigid  body  motion,  but  will  briefly 
summarize  the  kinematic  equations  of  rigid  body  motion  used  in  this  stucy. 
A  complete  derivation  may  be  found  in  any  good  dynamics  textbook  such  as 
Greenwood ( 1 965)  or  Goodman  and  Warner ( 1963) . 

In  general,  a  rigid  body  has  six  degrees  of  freedom  which  can  be 
subdivided  into  three  translational  and  three  rotational  modes.  The 
translation  of  a  rigid  body  can  be  expressed  by  three  independent 
coordinates  which  specify  the  location  of  a  fixed  point  in  the  rigid  bocy. 
The  remaining  three  degrees  of  freedom  correspond  to  changes  in  the 
orientation  of  the  rigid  body  and  can  be  described  by  rotational 
parameters.  This  rotational  motion  is  most  commonly  expressed  in  terms  c: 
direction  cosines.  A  set  of  direction  cosines  can  completely  describe  tne 
rotational  transformation  from  the  rotated  position  of  the  rigid  body  tc 
the  fixed  position. 

Consider  a  rigid  body  moving  in  space  whose  location  is  specified  Fy 
two  cartesian  coordinate  systems  as  shown  in  Figure  2-1.  The  1,2,3 
coordinate  system  is  located  in  the  rigid  body (body-centered  system)  anc 
moves  with  it  while  the  X,Y,Z  coordinate  system  is  fixed  in  inertial 
space(fixed  system).  The  general  acceleration  experienced  by  the  point  ? , 
located  in  the  rigid  body,  is  given  by: 

jr=R  +  p_+ux£+mx(ltx£)  +  2^x_P  (2.1, 

For  a  rigid  body  £  is  a  constant(ie.  £  =  £  =  0)  so  that 

_r  =  R+  £x£+£’x(£x£)  (2.2 

£  =  acceleration  of  point  P 

£  =  acceleration  of  the  origin  of  the  body-centered  systtn 


where 
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m  =  angular  velocity  of  the  body-centered  system  relative 
to  the  fixed  system 

m  =  time  rate  of  change  of  the  angular  velocity 
P_  =  position  of  point  P  as  measured  in  the  body-centered 
system. 

The  measured  acceleration  contains  a  component  due  to  gravity,  thus 

a  =  jr  +  &  (2.3) 

where 


Thus , 


■a  =  acceleration  measured  by  an  accelerometer 
£  =  acceleration  due  to  gravity. 

a^-R  +  tJXp^+a^x  (m  x  £)  +  £  (2.4) 


Transforming  vectors  from  the  body-centered  system  to  the  fixed 
system,  or  vice-versa,  requires  the  use  of  a  rotational  transformation 
matrix  and  translation  of  the  origin  of  the  coordinate  system.  In 
general,  the  rotational  transformation  matrix  is  written  as: 


1  „  1  „  1  , 
xx  x  y  x  z 


W  = 


whcri  the  1.  ..  represent 
unprimed  axis  systems  as 


1  -  1  , 

y  x  y  v 

1  ,  1  . 

_  z  X  z  y 

the  cosines  of 


shown  in  Figure 


1  _ 

y  z 

i  „ 


(2.5) 


the  angles  between  the  primed  and 
2-2.  Now  to  transform  a  vector  A 
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from  the  unprimed  to  the  primed  system,  one  only  has  to  perform  the 
following  matrix  multiplication. 


A  , 

N 

A 

X 

X 

A  , 

•  -  [T], 

A 

y 

y 

A  „ 
z 

A 

z 

(2.6) 


Since  the  transformation  matrix  is  an  orthogonal  matrix,  the  inverse 
matrix  is  equal  to  the  transpose  matrix  and  the  transformation  from  the 
primed  to  the  unprimed  system  can  be  made  by  using 


(2.7) 


A 

’  N 

A  , 

X 

X 

A 

'  -  [  T —1] . 

A  „ 

y 

y 

A 

A  , 

Z 

Z 

n  matrix  used  in 

this  s 

2.4. 


The  calculation  of  position  and  velocity  from  acceleration  is 

accomplished  by  integrating  the  acceleration  to  obtain  velocity 

v  =  /(a-g)dt  +  V  (2.8) 

—  — o 

and  then  integrating  the  velocity  to  obtain  position 

r  =  / v  dt  +  r  (2.9) 

—  — 

The  acceleration  must  be  determined  in  a  fixed  or  inertial  coordinate 
system  and  the  initial  velocity, v  ,  and  position,^,  must  be  known  in 
order  to  perform  the  above  integrations. 

The  specific  equations  of  motion  used  in  this  study  will  now  be 
derived  from  these  general  equations  of  rigid  body  motion. 


i 
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2 . 3  The  Planar  Eight  Accelerometer  Configuration 

In  most  inertial  measurement  systems  the  rotational  parameters  are 
measured  with  gyroscopes  and  the  translational  parameters  with 
accelerometers.  However,  it  is  possible  to  eliminate  the  gyroscopes  and 
measure  the  rotational  parameters  with  pairs  of  accelerometers  located  on 
the  rigid  body. 

If  pairs  of  accelerometers  are  used  to  measure  £  at  position  £_  and  a' 
at  position  ,  then  from  equation  (2.4) 

a^  =  R  +  wx£+  b  x  (u  x  £)  +  £  (2.10) 


and 


a/  =  R  +  m  x  £'  +  uj  x  ( a;  x  ^  (2.11) 

Now  if  the  outputs  of  these  accelerometers  are  subtracted 

a  -  a'  =  m  x  (£  -  £.' )  +  l_  x  [m  x  (jj  -  £.')]  (2.12) 

then  the  translational  terms  are  eliminated  and  only  the  rotational 
components  remain.  Let 


a  =  a  -  a'  and  d  =  p  -  _p' 


so  that 


cj  =  a)xci  +  ux(u)xj3)  (2.13) 

This  equation  relates  the  acceleration  difference  a  measured  at  two  points 
separated  by  distance  d  on  a  rigid  body  rotating  at  angular  velocity  _u  as 
shown  in  Figure  2-3. 

Now  expand  equation  (2.13)  into  three  scalar  equations  by  performing 
the  indicated  vector  operations.  The  cross  product  is 

m  x  cl  =  ^2d3  ~  +  ^3dl  “  “ld3^—  +  ^ld2  ~  a,2dl^—  ^.K) 

Similarly  one  obtains  for  the  double  cross  product  term 

2  2 

m  x  (m  x  dj  =  [m  m  d0  +  m  m  d,  -  (m  +  m^)d  ] 


+  [m^m^  d^  +  m^m^  d^  -  (m^  +  u^ld^]  2 

2  2 

+  [m^m,  d^  +  m^m^  d^  -  (m^  +  m^ld^]  _3 


(2.15) 


To  form  the  scalar  equations,  it  is  convenient  to  add  a  second  subscript 
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to  the  d.  terns  to  indicate  not  only  the  axis  direction,  but  also  the  axis 
on  which  the  accelerometer  pairs  are  located.  The  scalar  equations 
equivalent  to  equation  (2.13)  are 


al  = 

W2dL3 

+ 

^13 

“  Sd12 

+ 

*1*2 d 12 

-  «4 

+ 

u3)dll 

(2.16) 

a2 

w3d21 

+ 

“lw2 

d21 

'  *1*23 

+ 

u2w3d23 

-  (W1 

+ 

w3)d22 

(2.17) 

P 

w 

II 

V32 

+ 

U2W3 

d32 

u2d31 

+ 

wlu3d31 

- 

+ 

“2)d33 

(2. 18) 

where 

single  or  first  subscript  =  accelerometer  measurement  direction 

in  body-centered  system 

second  subscript  =  axis  on  which  the  accelerometer 

pair  is  located 

There  are  nine  accelerometer  pair  locations  specified  by  the  d.  .  terms  in 

1 J 

these  equations.  Since  the  system  has  six  degrees  of  freedom,  only  three 
pair  locations  must  be  retained  to  solve  the  equations. 


For  this  study  it  was  desirable  that  the  measurement  system  be  as 
compact  in  size  as  possible.  Therefore,  all  accelerometer  pairs  were 
located  in  one  plane,  the  1-3  plane,  so  that  all  d.?  =  0,  thus: 


ai 

■  v13  + 

w  w  d 

1  3  13 

9 

-  + 

uf )  a 

3  11 

(2.15) 

a2 

‘  "3d21  + 

*1*2*21  ‘ 

V23 

+  w2w3d23 

(2.20) 

a3 

=  -  (1)  d 

2  31 

+  u)  u  d 

i.  Jj  ->!■ 

-  (ui 

■+■  tx'  *“ )  d 

2'  39 

(2.21' 

Theoretically  the 

solutions  to 

equations 

(2.19), 

(2.20)  and  (2.21) 

require 

only  six  independent  measurements  (ie.  three  accelerometer  pairs)  and 
there  are  six  pair  locations  remaining.  Other  studies  by  Gramma ticos ( 1 9d 5 ) 
and  Schuler ( 1965 )  have  shown  that  if  the  terms  are  retained  additional 
sensors  must  be  included  to  determine  the  direction  of  the  components  of 
the  angular  velocity  w_.  This  is  a  result  of  the  mathematical  operation  c: 
taking  a  square  root 

"k =  +  \/~  ui  ~  ai  /dii  or  ‘  \r  “j  ' ai  /dii  (2-2;) 

which  requires  the  additional  sensor  to  determine  if  the  resultant  m  is 
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positive  or  negative.  Eliminating  the  accelerometer  pair  locations 


involving  squared 

terms,  ie. 

d^  =  d^^  =  0,  results  in 

°1 

=  Vl3  + 

“lw3d13 

(2.23) 

a2 

=  m3d21  + 

ulu2d21  “  “ld23  +  “2U)3d23 

(2.24) 

a3 

W2d31 

+  V3d31 

(2.25) 

There  now  remains  one  redundant  accelerometer  pair  location.  Before 
eliminating  this  pair,  it  is  useful  to  observe  that  if  =  d  ^  then 

subtracting  equation  (2.25)  from  (2.23)  results  in 


“2  =  (“l  “  °3)/2d13 


(2.26) 


Therefore,  if  both  locations  d,^  and  d ^  are  retained  for  accelerometer 
pairs,  ^  has  been  uncoupled  from  and  and  can  be  computed  by  direct 
integration  of  equation  (2.26).  Equation  (2.24)  contains  two  accelerometer 
pair  locations;  one  pair  d  located  on  the  J_  axis  and  the  other  pair  d 
located  on  the  3>  axis.  The  corresponding  equations  are: 


u>  d  +  mod 
3  21  1  2  21 


+  a;  w  d 


m  d 

1  23 


(2.27) 

(2.28) 


or  rearranging  yields 

o  =  -  a0'/d„-  (2.29) 

+  u^/d^  (2.30) 

Thus,  using  eight  accelerometers  (four  pairs)  mounted  in  a  single  plane, 
the  three  first  order,  non-linear  differential  equations  which  may  be 
solved  for  the  components  of  uj  are: 

(2.31) 

(2.32) 


u)  -  oj  -  a  '/d, 
X  c.  X  c  c 


^2  ~  (ai  “  a3  )/2d33 

“3  =  -  Wlo2  +  a2/d2i 


The  corresponding  accelerometer  layout  is  shown  in  Figure  2-4, 


(2.33) 


The  solution  of  equations  (2.31),  (2.32)  and  (2.33)  for  the  angular 


velocity  w  is  accomplished  by: 

(1)  measuring  the  distances  d^»  and  d^_ 

(2)  determining  the  initial  values  of  a  ,  a  and  a 

Id  $ 

(3)  measuring  and  recording  the  accelerometer  outputs 

(4)  integrating  the  set  of  differential  equations. 

The  result  is  the  angular  velocity  vector 

u)  —  u  I  +  io^2  +  m^3  (2.34) 

for  the  body-centered  system  relative  to  the  fixed  system.  With  the 
angular  velocity  of  the  systems  determined,  one  can  now  solve  for  the 
rotational  parameters;  the  transformation  matrix  and  the  orientation 


2 . 4  Derivation  of  the  Rotational  Parameters 

The  orientation  of  the  body-centered  (J_,^2,_3)  system  relative  to  the 
fixed  (X,_Y>.Z)  system,  as  shown  in  Figure  2-5,  can  be  expressed  by  several 
different  sets  of  parameters.  Three  such  sets,  as  discussed  in  NASA  CR- 
968(1968) ,  are 

(1)  nine  direction  cosines  which  relate  each  of  the  body- 

centered  axes  to  the  fixed  axes 

(2)  four  quaternians  which  include  a  unit  vector  specifying  the 

axis  of  rotation  and  a  scalar  specifying  the  magnitude  of 
the  angle  of  rotation 

(3)  three  Euler  angles  which  indicate  successive  rotations  about 

the  body-centered  axes  in  a  specified  sequence. 

The  general  computat ional  scheme  of  each  of  these  sets  is  discussed  and 
the  set  of  parameters  used  in  this  study  are  developed. 

g 

Let  C  represent  the  transformation  matrix  required  to  convert  a 

R 

vector  V  expressed  in  body-centered  coordinates  to  the  parallel  vector  V_ 

expressed  in  fixed  coordinates  where  the  transformation  is  given  by 

V  =  C®  V  (2.35) 

R  R  B 

in  terms  of  the  direction  cosines 


C  .  C, 


C„..  C. 


(2.36'' 


To  solve  for  these  nine  direction  cosines  the  following  equation,  from 


Broxmeyer ( 1964 ) ,  must  be  integrated 

c*3  =  t 

R  R  " 


(2.37) 


where 


(2.38) 


-  e; 


0 


47 


and  all  variables  are  functions  of  time. 

Expanding  equation  (2.37)  results  in  three  sets  of  three  differential 
equat ions 


c 

iX 

CO 

3 

X 

•H 

D 

II 

‘  CiZu2 

c 

iY 

=  Ciz“i 

CO 

3 

X 

•rl 

o 

1 

i  =  1,2,3 

(2.39) 

c 

la 

=  CiXW2 

"  CiY"l 

To  determine  the  transformation  matrix  requires  the  integration  of  these 
nine  equations.  Since  only  four  of  the  nine  direction  cosines  are 
independent,  computational  errors  in  this  integration  may  lead  to  a  non- 
orthogonal  matrix.  This  can  be  corrected  by  an  iteration  method  which 
produces  an  orthogonal  matrix  through  insuring  that  the  sum  of  the  squares 
of  each  row  and  column  equal  unity  as  described  in  Morris ( 1973) . 

Therefore  if  direction  cosines  are  used  as  the  parameter  set,  nine 
equations  must  be  integrated  and  an  additional  computation  is  required  to 
orthogonalize  the  resulting  transformation  matrix. 

If  the  quaternian  set  of  parameters  are  used  then 


C3  = 
R 


q2+q2-q2_q2  2(q  q  -q  q  )  2 ( q  q  +q  q  ) 

0  1  2  3  1  2  0  3  0  2  1  3 

2(qoq'-'+qiq2)  q~-q2+q-_q2-  2(ti„q„-q„q. ) 


0123 


2  3  0  1 
2_n2+„2 


(2.4C) 


2(q  q  -q  q  )  2(q  q  +q  q  )  q^-q^-q^+q 

1302  3210  0  1  " 

The  solution  for  the  quaternians  (q  ,q  ,q  ,q  )  requires  the  integration  of 
the  following  four  differential  equations  from  NASA  C.R-968 
q  =  -l/2(q  m  +q„e^  +q_eO 

U  -L  1  c  l.  z  'j 

<L  =  l/2(q  ^  +q  ^  -q  (2.40 

1  0  13  2.: 

q  =  1/2  (~q  m  +q  c,  +q  > 

d  J  -L  U  d  -  Zj 

\  =  1/2(Vi  +V~  +cu  } 

^  dll  o  u  - 

The  quaternian  parameters  are  based  on  Euler's  theorem  as  stated  in 
(.  r  t*e  nwood (1965) 

"The  most  general  displacement  of  a  rigid  body  with  one  point 
iixed  is  equivalent  to  a  single  rotation  about  some  axis  through  that 


48 


The  four  quaternions  are  composed  of  a  unit  vector  which  represents  the 
axis  about  which  the  rotation  occurs  and  a  scalar  which  represents  the 
magnitude  of  the  angle  of  rotation.  One  of  these  variables  is  not 
independent  and  therefore  the  resulting  transformation  matrix  must  be 
orthogonalized  as  was  done  in  the  direction  cosine  parameter  set. 
Therefore,  if  the  quaternion  set  of  parameters  are  used,  four  differential 
equations  must  be  integrated  and  an  additional  computation  to 
orthogonalize  the  transformation  matrix  is  required. 

If  the  Euler  angle  set  of  parameters  are  used,  only  three 
differential  equations  must  be  integrated  and  since  all  variables  are 
independent,  no  additional  computation  to  orthogonalize  the  transformation 
matrix  is  required  as  the  resulting  matrix  is  orthogonal.  One  additional 
advantage  is  the  relative  ease  of  relating  the  mathematical  equations  tc 
the  physical  orientation  of  the  coordinate  systems.  The  principal 
disadvantage  of  the  Euler  angle  set  of  parameters  is  that  a  singularity 
normally  occurs  in  the  mathematical  equations.  It  will  be  shown  that  this 
presents  no  problem  in  this  study.  Because  of  the  reduced  computational 
requirements  and  the  clear  physical  relationship  between  the  mathematical 
equations  and  the  orientation  of  the  coordinate  systems,  the  Euler  angle 
set  of  parameters  were  used  in  this  study.  A  complete  derivation  ut  the 
Euler  angles  will  now  be  presented. 

When  Euler  angles  are  used  for  the  fansf ormation  from  the  body- 
centered  system  to  the  fixed  system,  three  rotations  are  required  to  bring 
the  two  systems  into  alignment.  An  initial  general  orientation  of  the  two 
systems  is  shown  in  Figure  2-6.  The  following  rotations  are  used  to  bring 
the  body-centered  system  into  alignment  with  the  fixed  system 

(1)  bring  the  _1_  axis  into  the  XY  plane  by  rotating  about  the  2, 
axis  through  angle  S  as  shown  In  Figure  2-7. 


Figure  2-8.  Rotation  about  the  1_'  Axis  through  Angle  4>  to 
Align  the  3'  Axis  with  the  Z  Axis. 


Z 


Figure  2-9.  Rotation  about  the  Z_  Axis  through  Angle  8  to 
Complete  the  Alignment  of  the  Body-Centered 
and  Fixed  Coordinate  Systems. 


(2)  bring  the  _3  axis  into  alignment  with  the  t  axis  by  rotating 

about  the  X'  axis  through  angle  i  as  shown  in  Figure  2-8. 

(3)  complete  the  alignment  by  rotating  about  the  3"  axis 

through  angle  £  as  shown  in  Figure  2-9. 

The  single  axis  matrices  corresponaing  to  these  rotations  are 


cos  6  0 


0 

1 

sin  0 

0 

1 

0 

0 

COS  (*, 

0 

-sin  4 

cos  e 

sin  g 

-sin  g 

cos  g 

0 

0 

-s  in  6 
0 

cos  6 


(2.42) 


(2.43) 


(2.44) 


These  matrices  were  developed  from  general  coordinate  rotations  about  a 

single  axis  as  presented  in  Bate,  Mueller  and  White(1971).  The 

corresponding  transformation  matrix  is  given  by 

C®  =C^CPC?  (2.45) 

K  h  H  F 

Carrying  out  the  indicated  matrix  multiplication  results  in  the 
transformation  matrix 

I  cosocosb+sinGsin<{>sinP  cos4>sinS  -sin6cos6+  cos  Gsin^sintj 


C®  =  -cosG  sing +sin0  sinc()  cosg  cos<)>cosg  sin9sing+  cos9sin?cosc  (2.4b) 

R 


sinGcos$  -sin't1 

Now  differentiate  equation  (2.45)  to  obtain 


cosScos  4' 


\zamm 
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Recalling  that  for  orthogonal  systems 

R  B-1  P  Q  R 
CB  "  CR  “  CBCPCQ 


(2.48) 


substituting  equations  (2.47)  and  (2.48)  into  equation  (2.37)  results  in 


-  rRrB  -  fPrQcRcQrPrB  +  rPrQrRrQrFrB  +  prB 

^BLR  ~  B  P  fRTP  B P  Q  BLQlP  LBC'P^'Qt'RX'QLP 


(2.49) 


R  Q  Q  P 
or  since  Cq  Cp  =  Cp  Cq 


q  Cp  =  Cp  Cq  =  I ,  the  identity  matrix 


F-B  P.Q-P  B  F  .Q  .R  :Q  ,P  B 

i2  —  CgCp  +  CgCpCQCp  +  CpC  pC  qC  pC  qC  p  (2.50) 

s  #in 

The  products  C  Cg  appearing  in  equation  (2.50)  can  be  obtained  from 
equations  (2.42),  (2.43)  and  (2.44)  by  multiplying  the  derivative  of  the 


appropriate  matrix  by  its  inverse,  thus 


n  P  *B 

fig  -  Cp  Cp 


o  o  e 


ooo 


-e  o  o 


(2.51) 


fi  =  cS  cp  = 


0  0 


0  0 


(2.52) 


0  -6  0 


Qc  =  Cn  Cv  =  6  0  0 


■>  R  *Q 

6  “  CQ  CR 


0  0  0 


(2.53) 


Substituting  equations  (2.51),  (2.52)  and  (2.53)  into  equation  (2.50) 


results  in 


P  P,  P  Q  P  B 

+  Cr;T  C  D  +  C-Xpfi.CXp 
Be  P  o  P  b  Q  P 


(2.54) 


Since  fi,  fi.,  fi.  and  £1  are  all  antisvmmetr ic  matrices  and  all  single  axis 
rotation  matrices  are  orthogonal,  the  similarity  transformation  applies  so 
that  equation  (2.54)  can  be  rewritten  in  vector  form  as 


*  P  p  r\ 

9  +  CB  0  +  C£C*  0 


(2.55) 


Performing  the  matrix  multiplications  indicated  in  the  second  and  third 
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terms  results  in 


/  \ 
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k\ 

r 

cose 

W2 

= 

e 

0 

+ 

\“3 

h 

-sin6 

sinBcos^  3 
-sin<}>  6 
cos0  cosif  8 


(2.56) 


The  corresponding  scalar  equations  are 

(2.57) 
(2.5b) 
(2.59) 

Rearranging  these  equations  results  in  the  set  of  non-linear,  first  order 
differential  equations  for  the  Euler  angles 


=  cosg  <P  +  sing  cos<f  8 
=  0  -  sin$  8 

=  -sine  <j>  +  cose  cos$  8 


e  =  tanif,  (sine  +  cose  + 

$  =  cose  -  sine 

8  =  sec<p  (sin0  ui  +  cos@ 


(2.60) 

(2.61) 

(2.62) 


The  singularity  mentioned  previously  occurs  in  equations  (2.60)  and 
(2.62).  If  the  angle  <J>  becomes  either  90  or  270  degrees,  then  the  right 
hand  side  of  those  equations  becomes  infinite.  This  will  not  be  a  problem 
in  this  study  as  the  maximum  angles  expected  for  pelvic  movement  are  on 
the  order  of  +15  degrees.  Therefore,  at  no  time  should  the  singularity  be 
encountered  during  computation  of  actual  walking  data. 

The  rotation  angles  6  ,  <p  and  8  can  now  be  determined  by  integrating 
equations  (2.60),  (2.61)  and  (2.62)  simultaneously  since  ^ ,  u>n  and  can 
be  computed  using  the  results  of  section  2.3.  The  required  transformation 
matrix  is  then  computed  from  equation  (2.46)  and  any  vector  can  then  be 
transformed  from  the  body-centered  system  to  the  fixed  system.  The 
acceleration  measured  in  the  body-centered  system  must  be  transformed  to 
the  fixed  system  before  it  can  be  integrated  to  yield  translational 
velocity  and  position  information. 
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2. 5  Derivation  of  the  Translational  Parameters 

The  translational  parameters  of  interest  in  this  study  are  the 
acceleration,  velocity  and  position  of  the  body-centered  system  relative 
to  the  fixed  system.  The  origin  of  the  body-centered  system  is  a  point 
fixed  within  the  rigid  body.  Therefore  if  the  translational  parameters  of 
the  origin  are  known  as  a  function  of  time  the  translational  motion  of  the 
rigid  body  is  also  known. 

From  the  layout  of  the  accelerometers  as  shown  in  Figure  2-4  it  is 
apparent  that  the  accelerometer  pairs  have  been  placed  symmetrically  about 
the  origin  of  the  body-centered  system.  Therefore,  in  vector  notation,  the 
locations  for  each  accelerometer  within  a  pair  are  given  by  £_  and  and 
because  of  the  symmetry 


e.  =  - 


(2.63) 


For  example,  the  locations  of  the  accelerometer  pair  on  axis  _3  are  given 
by 


P_  =  d^/2  3.  [accelerometer  a^] 

p_'  =  -d^/2  J3  [accelerometer  a  '] 
Rewriting  equation  (2.4)  for  an  accelerometer  pair,  then 
a  =  R+  mx^  +  _mx(u>x_P)+£ 
a '  =  x  _P '  +  x  (2£  x  _P ' )  +  £ 

Substituting  equation  (2.63)  into  equation  (2.66)  yields 
a  =  R  -  "  x  £'  -  x  ( “  x  _P' )  +  £ 

Now  adding  equations  (2.67)  and  (2.68)  one  obtains 

a  +  a/  =  2R  +  2^ 


(2.64) 

(2.65) 

(2.66) 
(2.67) 

(2.66) 

(2.69) 


or 

R  =  l/2(a  +  a' )  -  £ 


(2.70) 
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The  acceleration  of  the  origin  of  the  body-centered  system  R  must  :e 
expressed  in  the  fixed  system  before  it  can  be  integrated  to  yield 
velocity  and  position.  The  accelerations  a_  and  a /  have  been  measured  in 
the  body-centered  system  and  therefore  they  must  be  transformed  to  the 
fixed  system  before  equation  (2.70)  is  integrated.  The  transformation 
matrix  is  known  and  therefore  the  acceleration  is  given  by 

A  =  C®  (a  +  a')/2  (2.71) 

The  gravitational  acceleration  is  given  in  the  fixed  system  by 

£  -  -1  Z  (in  g's)  (2.72) 

Therefore  the  acceleration  of  the  body-centered  origin  expressed  in  fixed 
system  coordinates  is 

R  =  A  -  &  (2.72) 

With  the  acceleration  of  the  origin  of  the  body-centered  system  determined 
the  velocity  is  given  by 

V  =  /  R  dt  +  V  (2.7-) 

_  _  _0 

A  second  integration  yields  the  position  of  the  origin  of  the  body- 
centered  system,  thus 

R  =  /  V  dt  +  R  (2.72) 

—  ~  — o 

Using  the  methods  developed  in  this  and  the  preceding  sections  the 
rotational  and  translation  motion  of  a  rigid  body  can  be  completely 
determined  from  accelerations  measured  by  four  pairs  of  accelerometers 
located  on  the  rigid  body.  The  measurement  equipment  designed  to  convert 


this  theory  into  practice  will  be  presented  in  the  next  chapter. 
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C11APTEK  3 

THE  EXPERIMENTAL  APPARATUS 


3.1  Introduction 

3.2  The  Accelerometer 

3.2.1  Design  Considerations  and  Specifications 

3.2.2  Design  Analysis 

3.2.3  Fabrication  and  Testing 

3.3  The  Electronic  Equipment 

3.4  The  Body  Mounting  Method 

3.5  The  Calibration  Method  and  Equipment 


3 . 1  Introduction 

In  this  chapter  a  description  of  the  measurement  equipment  developed 
during  this  research  study  is  presented.  A  general  description  of  the 
equipment  is  followed  by  a  detailed  outline  of  the  design,  fabrication  and 
testing  of  the  accelerometers  produced  during  this  study.  The  electronic 
equipment  designed  and  constructed  to  operate  the  accelerometers  is 
discussed  and  the  method  used  to  mount  the  accelerometers  on  the  pelvis  of 
the  subject  is  presented.  The  chapter  concludes  with  a  description  of  the 
calibration  method  and  equipment  and  a  discussion  of  the  methods  used  to 
ensure  temperature  stability  during  data  collection. 

The  purpose  of  the  measurement  equipment  was  to  measure,  and  store  in 
the  computer  for  further  data  processing,  the  outputs  of  the  eight 
accelerometers  worn  by  the  subject.  These  outputs  were  in  the  form  of 
analog  voltage  levels  which  were  converted  into  digital  form  for  storage 
in  the  computer.  The  stored  values  were  then  converted  to  acceleration 
values  using  the  results  of  the  calibration  procedure.  The  method  of 
calibration,  data  collection  and  storage,  and  data  processing  by  the 
computer  will  be  discussed  in  chapter  4. 


Figure  5-1.  Body  Mounted  Equipment  on  Walking  Subject. 
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The  accelerometers  were  located  within  an  equipment  package  mounted 
on  the  pelvis  of  the  subject  as  shown  in  Figure  3-1.  This  body  mounted 
package  is  described  more  completely  in  section  3. A.  A  subminiature  15  way 
cable  connects  the  body  mount  to  the  electronic  equipment  rack  and  serves 
to  transfer  electronic  signals  between  these  two  sets  of  equipment.  This 
cable  is  small  and  lightweight  and  does  not  interfere  with  the  movement  of 
the  subject  during  walking. 

The  electronic  equipment  was  housed  in  the  electronic  equipment  rack 
located  beside  the  PDP  11/34  computer  and  was  connected  to  the  computer 
with  short  cables.  The  electronic  rack  and  computer  are  shown  in 
Figure  3-2.  The  electronic  rack  contained  the  bridge  circuits,  power 
supplies,  output  amplifiers,  filters  and  sum  and  difference  amplifiers 
required  to  process  the  output  signals  from  the  accelerometers  for  input 
to  the  computer.  The  design  of  the  components  of  the  electronic  rack  is 
described  in  detail  in  section  3.3. 

Before  data  collection  from  a  subject  could  begin,  it  was  necessary 
to  temperature  stabilize  and  calibrate  the  accelerometers  contained  in  the 
body  mount.  This  stabilization  and  calibration  were  accomplished  using  the 
calibration  rig  shown  in  Figure  3-3.  The  calibration  procedure,  a 
description  of  the  calibration  equipment  and  a  discussion  of  the 
temperature  stabilization  procedure  are  presented  in  section  3.5. 
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3 . 2  Thu  Accelerometer 

In  the  following  subsections  the  design  criteria  for  the 
accelerometers  which  were  built  for  use  in  this  study  are  presented.  The 
theoretical  analysis  on  which  the  design  was  based  and  the  fabrication  and 
testing  of  the  accelerometers  are  reported. 
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3.2.1  Design  Considerations  and  Specifications 

The  selection  of  a  suitable  accelerometer  for  this  research  involved 
determining  the  characteristics  crucial  to  successful  data  acquisition. 

The  criteria  determined  to  be  most  important  were  small  size,  low  weight, 
high  sensitivity,  low  thermal  drift  and  low  cost.  Based  on  preliminary 
estimates  of  the  maximum  expected  acceleration  values  the  accelerometer 
was  required  to  have  an  operating  range  of  +5  g's.  The  accelerometer  had 
to  be  as  small  and  light  as  possible  in  order  to  minimize  the  size  and 
weight  of  the  equipment  to  be  attached  to  the  pelvis  of  the  subject. 

The  sensitivity  and  zero  g  offset  of  an  accelerometer  are  measured, 
prior  to  collecting  data,  by  a  calibration  procedure.  The  sensitivity,  in 
volts/g,  is  determined  by  rotating  the  accelerometer  about  an  appropriate 
axis  so  that  the  maximum  and  minimum  output  voltages  are  determined.  The 
sensitivity  is  then  determined  from  (maximum  voltage  -  minimum  voltage)/2 
as  the  maximum  and  minimum  voltages  correspond  to  the  +1  g  and  -1  g 
positions  in  the  gravitational  field.  Changes  in  the  sensitivity  may  be 
caused  by  changes  in  the  power  supply  voltage  or  temperature.  With  the 
stabilized  power  supply  used  in  this  study,  the  typical  variation  in 
sensitivity  is  0.03%.  The  sensitivity  also  changes  with  temperature;  a 
typical  specification  is  -0.3%/°C  which  indicates  that  the  output  of  the 
accelerometer  will  decrease  by  3%  for  every  10 °  C  the  temperature 
increases.  These  changes  are  small  and  not  a  serious  cause  for  concern. 

The  major  temperature  effect  is  the  variation  in  zero  offset  voltage 
which  can  result  in  serious  errors  during  data  acquisition.  In  Mitchell's 
research  using  accelerometers  at  the  University  of  Strathclyde  (1975)  he 
found  that  cupping  his  hand  over  an  accelerometer  produced  a  zero  shift  of 
0.15  g's  in  7  minutes.  This  zero  shift  had  not  stabilized  to  a  new  value 
and  immediately  began  to  shift  in  the  opposite  direction  when  he  removed 
his  hand.  Morris(1973)  reported  similar  difficulties  during  the 
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calibration  of  his  transducers.  The  solution  in  both  cases  was  insulation 


of  the  transducers  to  minimize  temperature  changes  between  calibration  and 
data  acquisition.  An  accelerometer  with  low  thermal  zero  shift  must  be 
used  in  order  to  minimize  such  difficulties. 

In  summary,  the  following  accelerometer  specifications  were  deemed 
essential  to  the  successful  completion  of  this  research: 

(a)  small  size  and  low  weight 

(b)  operating  range  +5  g's 

(c)  high  sensitivity 

(d)  low  thermal  zero  shift 

(e)  low  cost. 

A  comprehensive  search  of  commercially  available  accelerometers  was 
made  in  1975  for  suitable  accelerometers.  The  cantilever  beam,  strain 
gauge  type  of  accelerometer  construction  was  selected  based  on  the  size, 
weight  and  sensitivity  requirements  and  a  previous  analysis  by 
Morris ( 1973) .  Other  types  of  construction,  such  as  force-balance  and 
piezoelectric  crystal,  did  not  meet  one  or  another  of  the  desired 
specifications.  Since  this  particular  use  of  accelerometers  was  relatively 
unusual,  no  commercial  accelerometers  were  found  which  entirely  satisfied 
the  desired  specifications.  However,  the  Aksjeselskapet  Mikro- 
Elektronikk (AME )  Company  of  Horten,  Norway  had  developed  a  silicon  beam 
sensing  element,  the  AE800  series,  which  they  manufactured  and  used  in 
producing  accelerometers.  The  lowest  operating  range  manufactured  at  that 
time  was  +75  g's.  The  specifications  of  this  silicon  beam  and 
applications  for  measuring  acceleration  are  contained  in  Appendix  A. 

As  no  suitable  accelerometers  were  available  from  commercial  sources, 
it  was  decided  to  design  and  build  accelerometers  for  this  study.  The  next 
section  outlines  the  design  analysis  which  was  used. 
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The  accelerometer  design  was  based  on  drawings  kindly  supplied  by  the 


AME  Company  and  consisted  of  a  mass  supported  by  a  cantilever  beam  as 
shown  in  Figure  3-4.  The  cylindrical  brass  mass  is  supported  by  two 
beryllium  copper  beams  on  either  side  of  the  silicon  beam  sensing  element. 
The  design  is  primarily  sensitive  to  accelerations  in  one  direction  (x) 
with  minimal  response  to  axial  acceleration  (y)  or  acceleration  parallel 
to  the  plane  surfaces  of  the  beams  (z-direction)  since  the  beams  stiffness 
is  much  greater  in  these  directions.  When  the  accelerometer  undergoes  an 
acceleration  in  the  x  direction  a  deflection  of  the  beam  is  produced  which 
is  proportional  to  the  applied  acceleration  for  small  deflections.  The 
silicon  sensing  element  has  resistors  diffused  into  the  upper  and  lower 
surfaces  such  that  when  the  beam  deflects,  putting  one  surface  in  tension 
and  the  other  in  compression,  the  change  in  resistance  is  proportional  to 
the  amount  of  deflection.  More  details  of  the  structure  and  use  of  the 
silicon  beam  may  be  found  in  Appendix  A. 

The  method  used  to  analyze  the  deflection  characteristics  of  the 
cantilever  beam  due  to  an  applied  load  P,  produced  by  an  accelerat ion ,  was 
the  double  integration  method.  This  is  a  common  technique  and  is  outlined 
in  Higdon,  Ohlsen  and  S tiles ( 1 960) .  Using  the  variables  and  sign 
conventions  shown  in  Figure  3-5,  the  moment  equation  is 

El  d 2y/dx2  =  Px  -  P(A  +  1/2)  (3.1) 

where 

E  =  modulus  of  elasticity  of  the  beam 
I  =  moment  of  inertia  of  the  beam 
P  =  the  applied  load 
Integrating  equation  (3.1)  yields 

El  dy/dx  =  P(x^/2  -  Ax  -  lx/2)  +  (3.2) 

Applying  the  initial  condition  that  at  x=0  dy/dx=0,  results  in  Cj  =  0.  It 


J 


60 


is  now  possible  to  determine  the  slope  of  the  deflected  beam  at  point  A 
(the  base  of  the  mass)  from 

dy/dx|A  =  -  PA (A  +  1)/2EI  (3.3) 

Integrating  equation  (3.2)  results  in 

El  y  =  P(x^/6  -  Ax^/2  -  1x^/4)  +  (3.4) 

Now  applying  the  initial  condition  that  at  x=0  y=0,  results  in  =  0. 
Thus,  the  deflection  of  the  beam  y  at  any  point  x  (between  x=0  and  x=A)  is 
given  by 

y  =  P(x^/6  -  Ax2/2  -  lx2/4)/EI  (3.5) 


Therefore  the  deflection  of  the  end  of  the  silicon  beam,  point  C,  is 
given  by 


yC  =  yA  +  dyy,dxlA(C  "  A) 


(3.6) 


It  is  assumed  that  the  mass  does  not  deflect  internally  and  therefore  the 

slope  is  constant  over  length  1.  Setting  x=A  and  substituting  equation 

(3.5)  and  (3.3)  into  equation  (3.6)  results  in 

y  «  -  PA(-A2/3  -  Al/2  +  AC  +  1C)/2EI  (3.7) 

C 


The  force  P  can  be  expressed  as 


where 


P  =  am  =  a  Ttp^:  ^1 


(3.8) 


a  =  the  applied  acceleration 
m  =  mass  of  the  brass  cylinder 
p  =  density  of  brass 

P 

r  =  radius  of  the  brass  cylinder 
1  =  length  of  the  brass  cylinder 


The  stiffness  of  a  single  cantilever  beam  is 

El  =  E  w  t3/12  (3.9) 

for  a  rectangular  cross  section,  where 

E  =  modulus  of  elasticity  of  beam  material 
w  =  beam  width 
t  =  beam  thickness 

Since  the  supporting  beam  is  composed  of  two  materials,  beryllium  copper 
and  silicon,  and  the  beams  have  different  dimensions,  the  total  stiffness 
is  given  by 

El  =  Eglg  +  ECIC  (3.10) 

where 


El  =  stiffness  of  the  beryllium  copper  beam 

B  b 

E^l^  =  stiffness  of  the  silicon  sensing  beam 
Using  equations  (3.7),  (3.8),  (3.9)  and  (3.10),  it  is  now  possible  to 
determine  the  physical  dimensions  for  a  specific  accelerometer  operating 
range.  The  following  variables  are  known  from  the  mechanical  properties  of 
the  beams  and  mass  section  and  the  desired  operating  range  of  the 
accelerometer: 

2 

a  =  maximum  acceleration,  +5  g  =  +49.0  m/sec 


y  =  maximum  end  deflection  of  silicon  beam,  0.1  mm 

C 

E  =  modulus  of  elasticity (beryllium  copper), 

B 

c :  p 

1.186  x  lO''  Newton/mm 

5  2 

E^  =  modulus  of  elasticity (silicon) ,  1.569  x  10  Newton/mm 

-6  ,  ^ 

p  =  density  of  machine  brass,  8.496  x  10  kg/mm' 

6 

w^  =  width  of  silicon  beam,  1.0  mm 


tp  =  thickness  of  silicon  beam,  0.1  mm 


C  =  length  of  silicon  beam,  5.0  mm 
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The  unknown  variables  are: 

A  =  length  of  beryllium  copper  beam 
w  =  width  of  beryllium  copper  beam 
t  =  thickness  of  beryllium  copper  beam 
r  =  radius  of  the  brass  cylinder 
1  =  length  of  the  brass  cylinder 

If  values  for  A,  w,  t  and  r  are  selected,  then  1  can  be  solved  from  a 
rearrangement  of  equation  (3.7)  which  yields 

l2  +  bl  +  d  =  0  (3.11) 

where 

b  =  (2/3)  [  C3AC  -A2)/(2C  -  A)] 

d  =  AEIy  /anp  r^A(2C  -  A) 

C  b 

The  design  process  now  involves: 

(1)  selecting  values  for  A,  w,  t  and  r 

(2)  solving  equation  (3.11)  for  1 

(3)  deciding  if  this  solution  produced  acceptable  sizes 
(A)  if  not,  adjusting  A,  w,  t  and  r  until  the  sizes  are 

acceptable. 

To  facilitate  this  design  process  a  short  program  was  written  for  a 
Hewlett  Packard  HP-20  computer.  A  listing  of  the  program  ana  sample 
results  are  contained  in  Appendix  B.  In  addition  to  the  dimensions  of  the 
accelerometer  other  accelerometer  specifications  are  computed  by  this 
program  and  these  will  now  be  discussed. 

In  order  to  ensure  that  the  elastic  limit  of  the  beryllium  copper 
beam  was  not  exceeded,  the  maximum  stress  occurring  in  the  upper  surface 
layer  of  the  beam  at  the  wall  support  was  computed  using 

o  =  P(A  +  l/2)t/21 

D 


(3.12) 
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The  resonant  frequency  was  computed  from 

fn  =  ( 1  / 2tt )  yj  3EI /  [m(A  +  1/2)]  in  Hz  (3.13) 

This  equation  has  been  adapted  from  information  given  in  Appendix  A.  The 
dynamic  deflection  due  to  a  periodic  acceleration  of  frequency  f  Hz  is 
then 

yj  .  =  y  /[l  -  (f/f  )2]  (3.14) 

dynamic  C  n 

For  this  analysis  it  was  assumed  that  the  acceleration  frequency  was  2  Hz. 
The  deflection  difference  due  to  dynamic  deflection  is  given  by 


Ay  =  yj 


(3.15) 


dynamic  C 

This  dynamic  deflection  must  be  small  relative  to  the  primary  deflection 


as  it  represents  an  error  in  the  output  of  the  accelerometer. 

Cross  axis  error  is  of  major  concern  in  accelerometer  design.  This 
error  is  the  presence,  in  the  output,  of  accelerations  from  directions 
other  than  the  sensitive  axis  direction.  In  this  design  this  error  was 
primarily  due  to  accelerations  applied  to  the  end  of  the  beam.  This 
acceleration  produces  a  load  ?'  which  will  increase  any  deflection  present 
in  the  beam  as  shown  in  Figure  3-5.  This  cross  axis  error  can  be  estimated 
using  the  double  integration  method. 

If  one  assumes  that  the  deflections  are  small  and  that  the 
acceleration  producing  the  load  P'  is  approximately  equal  to  that 
producing  P  so  that  P  =  P',  then  equation  (3.1)  becomes 

El  d2y/dx2  =  P(x  -  A  -  1/2  -  D)  (3.16) 

To  estimate  the  maximum  possible  cross  axis  error,  D  was  assumed  to  be 
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constant  and  equal  to  the  maximum  deflection  possible,  that  is 

D  =  yA  +  dy/dx|Al/2 


(3.17) 


Integrating  equation  (3.16)  and  substituting  equation  (3.17)  for  D  in  the 
result  produces  the  slope  and  deflection  equations  for  the  end  loaded 


beam. 


dy/dxj  =  -PA(A  +  1  +  2y.  +  dy/dxj  1)/2EI 


(3.18) 


yA  =-PA  (A/3  +  1/4  +  yA/2  +  dy/dx|  l/4)/EI  (3.19) 

The  maximum  deflection  for  the  end  loaded  beam  at  point  C  can  still  be 
computed  using  equation  (3.6).  However,  equations  (3.18)  and  (3.19) 
require  an  iterative  solution  and  when  this  is  accomplished,  the  cross 
axis  error  can  be  computed  from 


%  cross  axis  error  = 


y  (end  loaded)  -  y  (no  end  load) 
y  (no  end  load) 


(3.20) 


The  sensitivity  of  the  accelerometer  was  computed  using  a  rearrangement  of 


an  equation  from  Appendix  A,  thus 


iu/u  =  Pl't  A/4EI  (in  mV/V) 


(3.21) 


where 


1'  =  3.0  +  1/2,  the  distance  from  the  center  of 
mass  to  the  center  of  the  diffused  resistors 
A  =  60,  the  gauge  factor  of  the  resistors 
The  term  P/Ll  can  be  found  in  terms  of  the  deflection  y  from  equation 
(3.7) 


P/El  =  y  / H 

C 


where 


(3.22) 


H  =  -  A(-A  /3  -  Al/2  +  AC  +  1C ) / 2 


(3.23) 


The  sensitivity  per  unit  deflection  was  therefore 


A  u/u/y^ 


l'tA/4H 


(3.24) 
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This  sensitivity  is  normally  specified  per  g  of  acceleration  and  in  this 


case  is  given  by 


Au/u/g  =  (l'tA/4H)(yc/a) 


(3.25) 


where  a  maximum  acceleration  a  (in  g's)  produces  a  maximum  deflection  y_ 

v/ 

(in  mm) . 

To  ensure  an  adequate  clearance  between  the  accelerometer  housing  and 
the  suspended  mass,  the  deflection  of  the  end  of  the  cylindrical  mass  must 
also  be  computed.  This  end  deflection  y  was  calculated  from 


=  yA  +  1  dy/dxlA 


(3.26) 
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Using  the  analysis  presented  in  this  section,  an  accelerometer  design 
was  completed  with  the  following  theoretical  specifications: 

Operating  range:  +5  g's 
Sensitivity:  4.2  mV/V/g 
Cross  axis  sensitivity:  <  3.5  %  FS 
Resonant  frequency:  64  Hz 
Non-linearity  and  hysteresis:  <  1  %  FS 
Operating  temperature  range:  -40  to  +85°  C 
Nominal  resistance:  1000  ohms 
Resistance  matching:  <  10  % 

Thermal  sensitivity  shift:  -0.2  %/°C 
Thermal  zero  shift:  <  0.005  %/FSV/°C 
Weight:  10  grams 

A  complete  set  of  drawings  for  this  accelerometer  design  are  contained  in 
Appendix  C. 

The  preceding  analysis  was  based  on  the  cantilever  beam  and  mass 
being  surrounded  by  air.  However,  in  most  accelerometers  the  beam  and  mass 
are  immersed  in  a  viscous  fluid  to  provide  a  slightly  underdamped 
response.  The  viscous  fluid  increases  the  natural  frequency  of  the  device, 
which  is  desirable,  but  decreases  the  sensitivity  which  is  undesirable. 
This  decrease  in  sensitivity  is  normally  of  the  order  of  5-10  %  which 
presents  no  problem. 

The  accelerometer  designed  in  this  study  was  filled  with  silicon 
fluid  with  a  viscosity  of  100  centistok.es.  This  viscosity  was  arrived  at 
experimentally  by  observing  the  frequency  response  of  the  accelerometers 
when  filled  with  fluids  whose  viscosities  were  23,  50  and  100 


67 


centistokes.  Silicon  fluid  was  selected  because  of  the  following  features 

(1)  small  variation  in  physical  properties  over  a  wide 

temperature  range 

(2)  relatively  flat  viscosity  vs.  temperature  slope 

(3)  good  dielectric  properties 

(A)  low  toxicity 

(5)  no  chemical  reaction  with  most  common  materials. 

The  use  of  this  fluid  slightly  reduced  the  sensitivity  and  produced  the 
desired  slightly  underdamped  response  as  will  be  shown  in  the  testing 
section. 

The  fabrication  and  testing  of  the  accelerometer  designed  using  the 
preceding  analysis  will  be  discussed  in  the  next  section. 
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3.2.3  Fabrication  and  Testing 

The  accelerometers  designed  using  the  analysis  presented  in  the 
previous  section  were  fabricated  from  the  drawings  contained  in  Appendix 
C.  All  components  were  machined  from  brass  with  the  exception  of  the 
beryllium  copper  beam  section  and  the  screw  which  fits  into  the  end  of  the 
accelerometer  housing.  This  screw  was  a  standard  #2  BA  steel  grub  screw 
from  bench  stock.  The  beam  section  was  fabricated  by  machining  an 
electrode  of  the  specified  shape.  This  electrode  was  then  used  in  a  spark 
erosion  machine  to  spark  erode  the  beam  section  from  standard  0.006  inch 
beryllium  copper  shim  stock.  The  individual  beam  sections  were  then 
annealed  to  maximum  hardness. 

The  accelerometer  was  assembled  by  cementing  the  mount,  beam  and 
weight  sections  together  using  Araldite  cement.  This  assembly  was 
performed  under  a  microscope  to  ensure  proper  alignment  of  these  sections; 
the  completed  assembly  is  shown  as  Part  A  in  Figure  3-6.  After  the  cement 
was  properly  cured,  the  silicon  beam  sensing  element.  Part  B  in  Figure  3- 
6,  was  inserted  in  the  center  hole  of  the  mount,  again  using  a  microscope 
to  ensure  proper  alignment.  The  end  of  the  silicon  beam  was  cemented  to 
the  weight  and  the  silicon  beam  cylindrical  header  was  cemented  to  the 
brass  mount,  again  using  Araldite. 

The  internal  assembly  was  then  inserted  into  the  housing  and  secured 
in  place  with  a  //12  BA  brass  screw.  The  mounting  end  of  the  housing  was 
then  filled  with  silicon  caulking  compound  to  provide  a  seal.  After 
curing,  the  accelerometer  was  then  immersed  in  the  silicon  fluid  with  the 
open  end  of  the  accelerometer  housing  upward.  The  immersed  accelerometers 
were  then  placed  in  a  vacuum  desiccator  jar  and  evacuated  to  allow  air 
bubbles  to  escape  from  the  interior  of  the  accelerometer.  The  evacuation 
process  was  repeated  several  times  to  ensure  that  no  air  remained  trapped 
inside  the  accelerometer  housing.  The  #2  BA  grub  screw  was  then  installed 


Figure  3-7.  Typical  Acce 


co  seal  the  accelerometer  housing.  After  fabrication  and  assembly  the 
accelerometers  were  tested  to  determine  their  actual  specifications. 
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An  accelerometer  was  first  mounted  on  a  platform  which  allowed  360° 
rotation  about  a  horizontal  axis.  The  required  resistance  bridge  and  power 
supply,  discussed  in  section  3.3,  were  used.  A  more  complete  calibration 
technique  than  used  in  these  tests  is  presented  in  section  3.4.  The  360° 
rotation  corresponds  to  a  change  from  +1  g  to  -1  g  of  acceleration.  The 
sensitivity  is  computed  using 

maximum  voltage  -  minimum  voltage  (mV) 

_ _ _  (3.27) 

2  (g's)  x  power  supply  voltage  (volts) 

The  initial  test  results,  with  a  supply  voltage  of  5.382  volts  yielded  a 

sensitivity  of  4.16  mV/V/g  which  compares  very  favorably  with  the 

theoretical  design  value  of  4.2  mV/V/g. 

The  cross  axis  sensitivity  tests  were  made  during  calibration  for 
data  collection.  During  the  calibration  each  accelerometer  output  would 
ideally  be  zero  in  four  of  the  six  calibration  positions.  The  maximum 
output  voltage  for  the  four  zero  positions  was  assumed  to  be  a  measure  of 
the  maximum  cross  axis  error  for  an  accelerometer.  The  maximum  cross  axis 
error  was  then  computed  by  dividing  the  maximum  zero  position  voltage  by 
the  accelerometer  full  scale  voltage.  The  mean  cross  axis  error  was  0.35  % 
FS  with  a  maximum  of  1.4  %  FS  and  a  minimum  of  0.01  %  FS.  Therefore,  the 
measured  cross  axis  sensitivity  specification  is  <  1.5  %  FS  which  is  less 
than  one-half  the  design  value. 

The  excellent  linearity  of  resistive  beams  is  well  known  and  other 
authors  have  described  in  detail  tests  of  accelerometer ( transducer ) 
linearity.  In  particular  Mitchell ( 1975 )  has  shown  that  even  when  the 
bridge  and  amplifier  circuits  are  grossly  out  of  balance,  the  calibration 
curve  remains  linear  and  merely  shifts  due  to  the  out  of  balance  condition 
as  shown  in  Figure  3-7.  However,  a  linearity  test  was  performed  for  the 


range  +15°  about  the  +1  g  position.  The  resulting  measurements  and  results 
are  shown  in  Table  3-1.  The  angles  were  measured  using  a  leveling 
protractor  from  a  machinists  combination  set  with  an  accuracy  of  +  0.25°. 
The  measured  angles  were  corrected  by  subtracting  the  angle  at  which  the 
maximum  voltage  occurred  (-1.5°)  as  this  position  corresponds  to  the  0° 
position.  The  computed  angles  were  determined  by  taking  the  inverse  cosine 
of  the  measured  voltage  divided  by  the  maximum  voltage.  The  angular 
sensitivity  was  computed  by  dividing  the  measured  voltage  by  the  product 
of  the  cosine  of  the  computed  angle  and  the  supply  voltage.  The  deviation 
of  the  angular  sensitivity  from  the  calibrated  sensitivity  was  used  as  a 
measure  of  the  linearity  of  the  accelerometer.  The  maximum  deviation  was 
0.005  mV/V/g  and  therefore  the  linearity  is  better  than  0.15  %  for  the 
range  tested.  Thus,  the  design  linearity  specification  of  <  1  %  is  valid. 
Comparing  the  angular  differences  between  the  measured  and  computed 
angles,  the  mean  difference  is  0.20°  with  a  maximum  value  of  0.48°  .  It 
was  concluded  from  this  test  that  the  accelerometer,  when  properly 
calibrated,  can  measure  angles  in  the  +15°  range  about  the  +1  g  position 
to  a  typical  accuracy  of  +0.2°  and  with  a  maximum  error  of  +0.5°. 

The  undamped  natural  frequency  was  determined  by  clamping  the  housing 
oi  an  accelerometer  which  had  not  been  filled  with  silicon  fluid  to  a  work 
bench  and  then  exciting  it  by  a  sharp  tap  with  a  metal  rod.  The  response 
was  observed  on  a  storage  oscilloscope  and  then  photographed.  The 
resulting  oscillation  is  shown  in  Figure  3-8.  The  period  of  the 
oscillation  was  approximately  0.0125  seconds  which  corresponds  to  a 
frequency  of  80  Hz.  The  predicted  frequency  was  63  Hz  and  since  a  higher 
natural  frequency  was  desirable,  the  measured  natural  frequency  was  better 


than  design. 


Figure  3-8.  Undamped  Accelerometer  Response. 

Vertical  scale:  2  volts/di v 
Horizontal  scale:  5  msec/div 
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Figure  3-9.  Damped  Accelerometer  Response. 

Vertical  scale:  1  volt/div 
Horizontal  scale:  5  msec/div 
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No  attempt  was  made  to  determine  quantitatively  the  exact  damping 
ratio  for  an  accelerometer  filled  with  silicon  fluid.  However,  response 
curves  for  a  damped  accelerometer  were  obtained  to  show  that  the  response 
was  slightly  underdamped.  A  typical  response  to  a  sharp  tap  with  a  metal 
rod  is  shown  in  Figure  3-9  and  is  consistent  with  a  damping  ratio  range  of 
0. 5-1.0  which  is  the  specified  value. 

In  addition  to  the  above  tests,  a  check  was  made  to  ensure  that  the 

cylindrical  masses  suspended  on  the  beam  were  of  the  proper  weight.  A 

-1* 

total  of  12  masses  were  weighed  using  a  balance  accurate  to  10  grams. 

The  mean  mass  was  2.339  grams  with  a  standard  deviation  of  0.005  grams. 

The  maximum  deviation  was  0.015  grams  which  corresponds  to  0.65%.  The 
design  mass  was  2.382  grams  and  therefore  the  actual  mass  exceeded  the 
design  value  by  1.8%.  This  was  much  better  than  expected. 

As  indicated  in  section  3.2.1,  one  of  the  major  problems  with 
accelerometers  used  in  this  type  of  research  has  been  zero  shift  due  to 
temperature  change.  Extensive  testing  of  thermal  zero  shift  was  performed 
under  controlled  conditions  to  determine  accurately  the  thermal  zero  shift 
specification  for  these  accelerometers.  During  this  testing  it  became 
evident  that  a  minimum  warming  period  of  2  hours  45  minutes  was  necessary 
to  stabilize  the  accelerometer  output. 

Thermal  zero  shift  tests  were  conducted  on  nine  accelerometers.  The 
accelerometers  were  allowed  to  warm  for  a  minimum  of  3  hours  at  which  time 
the  initial  temperature  was  measured  and  the  accelerometers  were 
calibrated.  Using  a  controllable  fan  heater,  described  in  section  3.5,  the 
temperature  was  then  raised  and  allowed  to  stabilize  at  which  time  the 
accelerometers  were  again  calibrated  to  determine  the  zero  offset  voltage. 


Test 

Number 

1 

2 

3 

4 

Avg 

Temperature 
Range  (°C) 

26-38 

21-32 

22-32 

31-37 

Accelerometer 

Number 

Thermal 

Zero  Shift 

(%/VFS/°C) 

1 

.039 

.040 

.029 

.028 

0.034 

2 

.006 

NT 

.008 

.013 

0.009 

3 

.002 

.001 

.009 

.001 

0.003 

4 

.001 

.002 

.001 

.001 

0.001 

S 

.004 

NT 

NT 

NT 

0.004 

6 

.005 

.007 

.007 

.005 

0.006 

7 

.007 

.005 

.003 

.001 

0.004 

8 

.001 

.0003 

.0005 

.001 

0.001 

9 

NT 

NT 

NT 

.034 

0.034 

Note:  NT  indicates  no  test,  only  8  accelerometers 
could  be  tested  at  one  time. 


Table  3-II.  Thermal  Zero  Shift  Test  Results 


The  thermal  zero  shift  was  then  computed  using 


V 

thermal  zero  shift  =  -  x  100%  (%/VFS/°C)  (3.28) 

VFS  x  VPS  x  AT 

where 

V  =  measured  voltage  change  (volts) 

VFS  =  full  scale  voltage  range  (volts) 

VPS  =  power  supply  voltage  (volts) 

AT  =  temperature  change  (°C) 

The  temperature  changes  and  resulting  thermal  zero  shifts  are  shown  in 
Table  3-11.  Five  of  the  nine  accelerometer  zero  shifts  were  less  than  the 
design  specification  of  0.005  %/VFS/°C.  One  accelerometer  exceeded  the 
specification  by  20  %(number  6),  one  exceeded  it  by  80  %(number  2)  and  two 
exceeded  it  by  580  %(numbers  1  and  9). 

Zero  shift  can  be  caused  not  only  by  temperature  change,  but  also  by 
mechanical  means  within  the  accelerometer  support  system.  Two  possible 
causes  are  mechanical  movement  of  the  cantilever  beam  assembly  during  the 
calibration  procedure  due  to  a  loose  fit  between  the  accelerometer  housing 
and  the  cantilever  beam  mount  or  relative  movement  between  the  beryllium 
copper  beams  and  the  silicon  beam  sensing  element.  There  are  other 
possible  mechanical  causes  none  of  which  can  be  accurately  assessed  as 
internal  movement  cannot  be  detected.  Therefore,  it  was  concluded  that  the 
large  zero  shift  of  accelerometers  1  and  9  were  due  to  unknown  mechanical 
problems  and  not  to  temperature  changes.  With  the  proper  control  of  the 
temperature  of  the  apparatus,  as  discussed  in  section  3.5,  the  effects  of 
this  anomalous  thermal  sensitivity  were  reduced  to  acceptable  levels. 

If  the  zero  shifts  of  accelerometers  1  apd  9  are  omitted,  the  mean 
zero  shift  due  to  temperature  change  was  0.004  %/VFS/°C.  Therefore,  it 
was  concluded  that  the  design  specification  of  <  0.005  %/V FS/°C  was 
accurate.  This  zero  shift  can  also  be  expressed  as  0.0005  g's/°C.  These 


Operating  range:  _+  5  g's 

Sensitivity:  4  mv/v/g 

Cross  axis  sensitivity:  <1.5%  FS 

Resonant  frequency:  80  Hz 

Non-linearity  and  hysteresis:  <1%  FS 

Operating  temperature  range:  -40  to  +85  °C 

Nominal  resistance:  1000  ohms 

Resistance  matching:  <10% 

Operating  voltage:  10  Volts  (maximum) 

Thermal  sensitivity  shift:  -0.2%/°C 

Thermal  zero  shift:  <  0.005%/FS/°C 
or  <  0.0005  g's/°C 


Damping:  0.7  -  1.0 

Weight:  10  grams 


Figure  3-10.  Accelerometer  Specifications. 
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thermal  zero  shift  measurements  are  total  system  shifts  including  the 
drift  of  the  electronic  bridge  circuits,  amplifiers,  filters  and  the 
analog  to  digital  converter  as  the  specifications  were  computed  from 
voltages  stored  in  the  PDP  11/34  computer  using  the  calibration  program. 
The  effect  of  this  zero  shift  on  calibration  and  data  reduction  will  be 
discussed  in  chapter  4. 

The  verified  specifications  for  the  accelerometer  are  shown  in  Figure 
3-10.  The  electronic  equipment  required  to  operate  the  accelerometers  and 
process  their  output  signals  for  storage  in  the  PDP  11/34  computer  will 
will  be. presented  in  the  following  section. 
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3 . 3  The  Electronic  Equipment 

The  electronic  equipment  required  to  operate  the  accelerometers  and 
process  output  signals  for  storage  in  the  PUP  11/34  computer  is  shown  in 
Figure  3-11.  The  accelerometer  and  bridge  output  signals  were  amplified  to 
a  voltage  level  suitable  for  input  to  the  analog  to  digital 
converter (ADC ) .  To  reduce  high  frequency  noise,  which  may  be  present  in 
the  output,  the  signal  was  then  filtered.  As  discussed  in  chapter  2,  the 
outputs  of  accelerometer  pairs  must  be  added  and  subtracted  in  the 
computation  of  the  rotational  and  translational  parameters.  Therefore,  sum 
and  difference  amplifiers  were  provided  to  input  these  signals  directly  to 
the  ADC.  The  digital  output  from  the  ADC  was  then  stored  on  the  magnetic 
disc  of  the  computer  for  further  processing  and  analysis.  The  ADC 
resolution  was  1  part  in  1024,  or  0.098  %  of  full  scale  input;  in  this 
case  the  full  scale  input  voltage  was  4.99  volts  and  the  resolution  was  5 
millivolts.  The  primary  design  criteria  for  the  electronic  equipment  was 
to  keep  the  errors  in  the  output  level  below  that  of  the  ADC. 

The  sensing  element  of  the  accelerometers  was  a  1/2  resistive  bridge. 
In  order  to  produce  an  output  voltage  proportional  to  the  sensed 
acceleration  the  accelerometer  must  be  connected  to  a  voltage  supply  and  a 
second  1/2  resistive  bridge  to  form  a  full  Wheatstone  bridge  network.  The 
complete  bridge  circuit  is  shown  in  Figure  3-12.  The  bridge  circuit  was 
composed  of  body  mounted  components,  the  accelerometers  and  zener  diode, 
and  electronic  rack  components,  bridge  resistors  and  potentiometers  and 
voltage  supply,  with  an  interconnecting  cable.  The  200  ohm  dropping 
resistors  were  used  to  reduce  the  supply  voltage  of  +15  VDC  to 
approximately  +3.2  volts  for  the  zener  diode.  The  bridge  was  powered  by  a 
+15  volt  stabilized  power  supply  identical  to  the  amplifier  power  supply 
which  will  be  discussed  later  in  this  section.  It  was  essential  that  a 
stable  voltage  be  supplied  to  the  bridge  as  any  change  in  the  bridge 
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voltage  would  produce  a  change  in  the  sensitivity  from  the  calibrated 
value.  Therefore,  a  1N827  zener  diode  was  included  in  the  bridge  circuit 
to  stabilize  the  bridge  voltage.  This  diode  provided  a  stable  voltage  of 
6.2  VDC  +5  %  and  was  temperature  compensated  with  a  temperature 
coefficient  of  0.001  %/°C. 

The  IK  ohm  resistors  which  form  the  second  1/2  resistive  bridge  are 
shown  on  the  left  of  Figure  3-12.  These  were  not  physically  individual 
resistors  as  shown  but  were  packaged  thin  film  resistance  chips  which  were 
selected  to  minimize  thermal  drift  in  the  bridge  circuit.  The  resistances 
contained  in  each  chip  are  matched  to  within  +1  %  and  have  a  maximum 
tracking  temperature  coefficient  of  +2  ppm/°C.  This  tracking  corresponded 
to  a  zero  drift  of  0.0002  %/°C  which  is  significantly  smaller  than  the 
accelerometer  thermal  zero  drift.  To  calibrate  the  bridge  circuit 
properly,  a  means  of  balancing  the  bridge  to  zero  output  in  a  null 
position  was  necessary.  This  was  accomplished  by  locating  a  20  ohm,  15 
turn  cermet  potentiometer  in  the  1/2  resistive  bridge.  This  potentiometer 
allowed  the  bridge  to  be  balanced  accurately  prior  to  calibration  in  order 
to  maintain  the  zero  offset  value  at  approximately  zero  volts. 

Several  input  amplifier  designs  were  considered  for  use,  including 
relatively  expensive  chopper  stabilized  amplifiers,  in  order  to  minimize 
amplifier  drift.  In  addition  to  low  drift  a  high  common  mode  rejection 
ratio(CMRR)  was  desirable  to  minimize  the  effect  of  bridge  supply 
variation.  The  amplifier  circuit  chosen  was  a  low  drift  operational 
amplifier  design  contained  in  the  LM321A  precision  preamplifier 
specification  which  is  shown  in  Appendix  D.  This  preamplifier  contained  a 
provision  for  nulling  offset  voltages  and  had  a  thermal  drift  of  less  than 
1  p  V/  °C  when  nulled.  The  resistors  in  the  preamplifier  were  selected  to 
ensure  matching  to  better  than  0.02%  to  give  a  CMRR  in  excess  of  70  dB. 

The  preamplifier  was  coupled  to  an  LM308A  operational  amplifier  which  had 
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a  typical  drift  of  1  pV/°C  and  a  maximum  guaranteed  drift  of  5  pV/°C.  The 
specification  sheets  for  the  LM308A  are  also  contained  in  Appendix  D. 

The  gain  of  the  output  amplifier  was  made  adjustable  by  using  a 
10  K  ohm  potentiometer  as  a  voltage  divider  in  the  output.  This  allowed 
the  gain  to  be  adjusted  from  approximately  55  to  190.  The  input  from  the 
accelerometer  bridge  circuit  was  25  mV/g  and  therefore  the  maximum 
amplifier  output  was  4.75  volts/g  which  was  more  than  sufficient  to 
provide  the  proper  input  voltage  to  the  ADC  and  the  computer. 

In  order  to  minimize  high  frequency  noise  signals,  a  filter  was  added 
to  the  output  side  of  the  amplifiers.  The  filter  was  designed  for  a  cutoff 
frequency  of  4  KHz  which  did  not  result  in  any  loss  of  information  as  the 
data  had  a  fundamental  frequency  of  2  Hz  and  was  sampled  at  a  rate  of 
200  Hz.  The  preamplifier,  amplifier  and  filter  circuits  are  shown  in 
Figure  3-13. 

The  difference  signals  from  accelerometer  pairs  could  be  obtained  by 
subtracting  individual  accelerometer  outputs  after  they  have  been  stored 
in  the  computer.  However,  it  was  expected  that  the  difference  signals 
would  be  much  smaller  than  the  accelerometer  signals  since  the  rotational 
components  comprised  only  20-30  %  of  the  basic  signal.  Digital  subtraction 
would  therefore  decrease  the  resolution  from  1  part  in  1024  to 
approximately  1  part  in  250.  Therefore,  differencing  was  produced  by 
amplifiers  as  shown  in  Figure  3-13.  Additional  signal  gain,  from  3.0  to 
4.74,  was  provided  by  these  amplifiers  to  accommodate  particular 
accelerometer  pairs.  These  gains  were  selected  by  recording  test  data  and 
then  adjusting  the  gain  to  an  optimum  value  for  input  to  the  ADC. 

Summing  amplifiers  were  also  included  to  provide  accelerometer  pair 
sums  to  the  computer.  These  amplifiers  were  designed  with  unity  gain.  Both 
the  summing  and  difference  amplifiers  contained  10  K  ohm  potentiometers  in 
the  input  line  from  the  second  accelerometer  of  a  pair  to  balance  the  gain 


77 


of  these  amplifiers. 

The  electronic  circuits  were  constructed  so  that  one  circuit  board 
contained  all  the  components  necessary  to  operate  one  pair  of 
accelerometers  except  the  bridge  circuits  which  were  placed  on  a  separate 
circuit  board.  The  circuit  board  for  one  pair  of  accelerometers  is  shown 
in  Figure  3-14.  The  circuit  diagram  equivalent  to  one  circuit  board. 

Figure  3-13,  also  shows  the  two  preamplifiers,  two  amplifiers,  two  filters 
and  the  one  sum  and  one  difference  amplifier  required  for  each  of  the 
accelerometer  pairs. 

Two  +15  VDC  stabilized  power  supplies  were  constructed;  one  for  the 
bridge  circuit  and  a  second  for  the  amplifiers.  Both  were  dual  regulated 
with  a  potentiometer  to  balance  the  positive  and  negative  output  voltages 
to  equal  levels.  These  power  supplies  were  constructed  from  standard 
designs  and  complete  specifications  and  circuit  diagrams  are  contained  in 
RS  Components  Limited  circular  R/2040  a  copy  of  which  is  provided  in 
Appendix  E. 

The  gain  and  zero  of  the  amplifiers  had  to  be  balanced  initially  and 
at  periodic  intervals.  To  facilitate  this  a  voltmeter,  shown  in  Figure 
3-15,  was  constructed.  The  voltmeter  also  provided  the  capability  to 
monitor  the  output  signals  during  calibration,  testing  and  data 
acquisition  to  ensure  proper  signal  levels.  The  amplifier  balancing 
procedure  required  a  signal  generator  to  provide  simulated  input  signals 
and  a  dummy  load  box  of  fixed  resistance  values  to  simulate  the  bridge 
circuit  and  accelerometers.  The  electronic  rack  with  the  dummy  load  box 
installed  is  shown  in  Figure  3-16.  With  the  dummy  load  box  installed  and 
no  input,  the  output  of  each  of  the  eight  accelerometer  amplifiers  was 
adjusted  to  zero  volts  using  the  individual  offset  potentiometer  for  each 
accelerometer  amplifier.  The  dummy  load  box  was  removed  and  the  signal 


generator,  set  to  produce  a  peak-to-peak  signal  of  40  mV  at  2  Hz,  was 


Figure  3-lfo.  electronic  Rack  with  Dummy 
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7  1 

connected  to  the  input  of  all  eight  accelerometer  amplifiers  using  a  cable 
adapter.  The  gains  of  each  pair  of  accelerometers  were  set  to  a 
predetermined  identical  value  by  adjusting  the  gain  potentiometers.  The 
output  of  the  difference  amplifiers  was  then  adjusted  to  a  minimum  value 
using  the  trim  potentiometer.  This  completed  the  amplifier  balancing 
procedure.  The  summing  amplifiers  were  balanced  during  the  initial 
calibration  procedure  by  insuring  that  the  voltage  output  by  the  summing 
amplifiers  was  equal  to  the  sum  of  the  voltage  outputs  of  the  individual 
accelerometer  amplifiers  for  each  pair.  The  dummy  load  box  was  used  to 
test  the  CMRR  of  the  amplifier.  An  8  volt,  2  Hz  signal  was  applied  to  both 
preamplifier  inputs  and  the  CMRR,  under  these  conditions,  was  determined 
to  be  in  excess  of  100  dB. 

The  electronic  equipment  and  accelerometers  which  must  be  mounted  on 
the  pelvis  of  the  subject  and  the  mounting  method  are  discussed  in  the 


next  section. 


Figure  3-17.  Accelerometer  Mounting  Platform. 


3-18.  Accelerometer  Platform  with  Cover  Installed. 
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3. 4  The  Body  Mounting  Method 

In  order  to  measure  the  accelerations  of  the  pelvis  during  walking  an 
equipment  package,  the  body  mount,  had  to  be  securely  attached  to  the 
pelvis  of  the  subject.  The  body  mount  had  to  contain  all  essential 
equipment,  be  as  small  and  lightweight  as  possible  and  be  attached  to  the 
subject  in  a  manner  which  did  not  interfere  with  normal  walking  motion. 

The  accelerometers  also  had  to  be  fixed  securely  in  the  proper 
configuration  in  order  to  measure  the  necessary  accelerations. 

The  platform  for  mounting  the  eight  accelerometers  was  fabricated  in 
a  cruciform  shape  from  aluminum  as  shown  in  Appendix  C.  Channels  were 
milled  into  the  surface  to  accept  the  cylindrical  accelerometers  and  pins 
were  located  in  the  channels  to  ensure  exact  placement  of  the 
accelerometers.  A  second  drawing  in  Appendix  C  shows  the  brackets  used  to 
secure  the  accelerometers  in  the  correct  position.  To  provide  the 
necessary  electrical  and  mechanical  connections,  two  centrally  located 
socket  connectors  were  mounted  on  the  aluminum  platform.  The  completed 
platform,  with  accelerometers  in  place,  is  shown  in  Figure  3-17. 

A  covering  box  of  aluminum  sheet  was  fabricated  which  contained  the 
zener  diode  and  two  central  pin  connectors  which  mated  with  the  socket 
connectors  on  the  platform.  The  pin  connectors  were  wired  to  the  15  way 
cable  which  was  clamped  to  the  covering  box  and  carried  the  electronic 
signals  to  the  electronic  rack.  The  covering  box  was  encased  in  1/4  inch 
foamed  polystyrene  to  provide  thermal  insulation  and  was  secured 
mechanically  to  the  platform  by  mating  the  central  pin  and  socket 
connectors.  A  1  1/2  inch  diameter  steel  ball  was  mounted  on  the  exterior 
of  the  covering  box.  The  accelerometer  platform  with  the  covering  box  in 
place  is  shown  in  Figure  3-18. 
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This  accelerometer  equipment  package  must  be  attached  securely  to  the 
pelvis.  The  site  selected  for  attachment  was  just  over  the  sacrum  above 
the  gluteal  fold  and  below  the  L5-S1  articulation.  A  Y-shaped  piece  of  1/8 
inch  thick  Orthoplast  was  molded  to  the  shape  of  the  sacrum  on  two 
subjects,  one  male  one  female.  The  Orthoplast  is  easily  moulded  when 
slightly  heated  and  retains  the  desired  shape  when  cooled.  It  was 
carefully  moulded  and  trimmed  to  ensure  that  the  primary  contact  with  the 
subject  was  over  the  sacrum  and  there  was  no  interference  caused  by  the 
gluteal  muscles. 

The  shaped  Orthoplast  mount  was  then  secured  to  the  rear  of  the 
accelerometer  platform  with  machine  screws.  Two  layers  of  shaped 
Plastazote,  one  tapered  softwood  wedge  and  1/4  inch  of  foamed  polystyrene 
were  interposed  to  provide  thermal  insulation  from  body  heat  and  maintain 
a  near  vertical  alignment  of  the  body  mount  when  attached  to  a  subject. 

The  Orthoplast  mount  attached  to  the  accelerometer  platform  is  shown  in 
Figure  3-19. 

The  completed  body  mount  was  attached  to  the  sacrum  of  the  subject  in 
order  to  measure  the  accelerations  of  the  pelvis  during  walking.  The 
steel  ball  provided  a  means  of  forcing  the  body  mount  firmly  against  the 
sacrum  while  allowing  complete  freedom  of  movement.  To  provide  the 
mounting  force,  a  spherical  cup  of  PTFE  was  machined  to  mate  with  the 
steel  ball  and  secured  to  an  aluminum  belt  holder.  Two  web  belts  with 
velcro  fasteners  were  threaded  into  the  belt  holder  as  shown  in 
Figure  3-20. 

The  body  mount  was  secured  to  the  sacrum  of  the  subject  by  placing 
the  PTFE  cup  on  the  steel  ball  and  securing  the  web  belts  around  the 
subject.  One  belt  was  passed  below  the  iliac  crests  and  the  other  above  as 
shown  in  Figure  3-21.  The  belts  pressed  the  body  mount  firmly  against  the 
sacrum  and  provided  a  satisfactory  method  of  securing  the  body  mount  to 
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the  pelvis  and  sacrum.  This  method  of  securing  the  belts  above  and  below 
the  iliac  crests  was  also  used  at  the  University  of  Iowa  to  secure 
accelerometers  in  studies  by  Robinson(1972)  and  Smidt,  et.al.(1971  and 
1977). 

The  relative  movement  of  the  body  mount  was  closely  observed  and  it 
appeared  that,  if  the  device  was  properly  mounted,  it  did  move  with  the 
pelvis  with  little  or  no  extraneous  motion.  An  attempt  was  made  to 
qualitatively  evaluate  the  effectiveness  of  the  attachment  method.  A 
subject  was  placed  in  an  apparatus  which  securely  fixes  the  position  of 
the  pelvis  as  shown  in  Figure  3-22.  Loads  of  1,  2,  3,  4  and  3  pounds  were 
applied  to  the  body  mount  in  the  horizontal  and  vertical  directions  and 
the  distance  the  body  mount  moved  was  recorded.  The  maximum  acceleration 
measured  during  walking  was  equivalent  to  an  applied  load  of  18  Newtons (up 
and  down  4  pounds-f orce )  with  a  corresponding  measured  peak  to  peak 
position  of  6.3  cm.  The  static  loading  resulted  in  a  peak  to  peak  movement 
of  4.5  nm.  Therefore,  it  was  estimated  that  the  errors  due  to  relative 
movement  between  the  body  mount  and  pelvis  were  less  than  5  % . 

Prior  to  mounting  the  accelerometer  body  mount  on  the  subject,  it 
must  be  calibrated.  The  calibration  method  and  equipment  will  now  be 


discussed . 


3. 3  The  Calibration  Method  and  Equipment 


In  order  to  calibrate  an  accelerometer  it  must  be  mounted  with  the 
sensitive  axis  in  the  vertical  plane  and  then  rotated  about  a  horizontal 
axis  through  positions  which  correspond  to  +1  g  and  -1  g.  By  recording  the 
output  voltage  corresponding  to  these  positions  the  accelerometer  can 
easily  be  calibrated.  As  stated  in  section  3.2.3,  the  calibration  function 
is  linear  and  can  be  expressed  as 

G  =  S  V  +  B  (3.29) 

F 

where 

G  =  acceleration  in  g's 
S  =  scaling  factor (slope )  in  g's/volt 

r 

V  =  output  voltage  in  volts 
B  =  offset  from  zero  in  g's 

It  is  desirable,  but  not  essential,  to  maintain  the  offset  as  close  to  a 
null  value  as  possible.  This  was  accomplished  by  adjusting  the  bridge 
circuit  potentiometer  to  a  null  output  when  the  accelerometer  was  in  a 
"zero  g"  position. 

The  scale  factor  and  offset  were  computed  from  the  +1  g  and  -1  g 
voltage  measurements  as  follows: 

(1)  compute  S  using 

2  g's 

S  =  -  (in  g's/volt)  (3.30) 

F  V[+l  g]  -  V[-l  g] 

(2)  select  the  reference  offset  position (normally  0  g) 

(3)  compute  B  using 

b  =  G  -  S  V  (3.31) 

F 

where 


G  =  0,  +1,  or  -1  as  appropriate 


V  =  the  corresponding  measured  voltage 
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Accelerometer  Number 
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For  example  it  the  null  g  position  is  used  then 


B 


S  V 

F  null 


(3.32) 


To  calibrate  the  eight  accelerometers  the  platform  was  placed  in  six 
positions  with  respect  to  the  vertical  plane.  The  coordinate  system 
orientation  and  the  resulting  g  readings  for  each  accelerometer  are  shown 
in  Figure  3-23.  By  recording  the  voltage  readings  for  each  of  the  six 
positions,  the  required  scale  factors  and  offsets  wore  then  computed  from 
equations  (3.30)  and  (3.31). 

A  calibration  rig  was  constructed  to  hold  the  accelerometer  platform 
and  rotate  it  through  the  six  calibration  positions.  As  shown  in  Figure 
3-24,  the  calibration  rig  was  rigidly  mounted  to  a  steel  supporting 
column.  Three  indexing  heads  were  incorporated  in  the  design  to  allow  the 
mounting  platform  to  be  rotated  through  360°  about  any  of  three  axis. 
Setting  pins  in  each  indexing  head  provided  positive  position  stops  at  the 
0°,  90°,  180°  and  270°  positions  on  each  axis. 

In  order  to  ensure  that  the  accelerometers  were  rotated  in  a  true 
vertical  plane,  the  calibration  rig  had  to  be  carefully  aligned.  To 
facilitate  the  alignment  three  grub  screw  were  located  in  the  column 
mounting  collar  which  allowed  the  mounting  column  to  be  secured  after 
rotation  about  its  horizontal  axis.  A  dual  backing  plate  with  three 
positioning  grub  screws  and  three  locking  bolts  for  vertical  and  lateral 
positioning  was  incorporated  in  the  design.  The  alignment  screws  are  shown 
in  Figure  3-25. 

Initial  alignment  of  the  calibration  rig  was  made  with  the  mounting 
platform  horizontal  as  shown  in  Figure  3-24.  The  leveling  instrument  used 
was  an  eight  inch  Moore  and  Wright  Engineers  Level  on  which  one  bubble 
division  is  equivalent  to  0.0167°.  The  level  was  placed  on  top  of  the 
mounting  platform  and  parallel  to  the  K  axis.  First  the  V  axis  was  aligned 
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with  the  vertical  by  loosening  grub  screws  A,  B,  and  C;  rotating  the 
mounting  column  until  the  bubble  indicated  that  the  platform  was  level; 
then  retightening  the  grub  screws.  The  mounting  column  was  adjusted  as 
necessary  until  the  bubble  remained  level  when  the  platform  was  rotated 
through  180°  (to  align  the  bubble  in  both  the  +11  and  -H  direction)  using 
the  indexing  head.  Next  the  indexing  head  was  used  to  rotate  the  platform 
90°  to  position  the  bubble  level  parallel  to  the  axis.  The  backing  plate 
locking  screws  G,  H  and  I  were  loosened  and  grub  screws  D,  E  and  F  were 
used  to  adjust  the  bubble  to  a  level  position.  After  securing  the  locking 
screws,  the  platform  was  rotated  through  180°(to  align  the  bubble  level  in 
both  the  +_P  and  -P  directions).  The  grub  and  locking  screws  were  adjusted 
as  necessary  to  maintain  the  bubble  in  a  level  position  along  both  the  +£ 
and  -P  directions.  These  procedures  were  repeated  as  necessary  until  the 
bubble  was  maintained  in  the  same  position  while  the  mounting  platform  was 
rotated  through  360°  using  the  indexing  head.  This  procedure  ensured  that 
the  mounting  platform  was  rotating  about  a  vertical  axis. 

After  the  alignment  procedure  was  completed,  the  maximum  deviation  of 
the  bubble  from  a  level  position  was  +4  divisions.  This  corresponds  to  an 
error  of  +0.067°  during  360°  of  rotation  or  0.02  %.  The  platform  was  then 
rotated  into  the  vertical  plane  and  indexed  through  the  90°  ,  180°  and 
270°positions .  The  angles  were  measured  with  the  leveling  protractor  from 
a  machinists  combination  set  and  the  maximum  measured  error  for  the  fixed 
positions  was  0.5°.  Therefore,  the  maximum  error  in  the  calibration  rig 
was  less  than  +0.45°  in  360°  and  the  angular  position  of  the  calibration 
rig  was  accurate  to  +0.3  X. 

As  discussed  earlier  in  this  chapter,  zero  shift  due  to  thermal  drift 
can  be  a  major  problem  if  the  temperature  of  the  accelerometers  are  not 
maintained  at  a  constant  value  during  calibration  and  data  acquisition.  To 
prevent  this  problem  and  maintain  a  stable  temperature  environment,  the 


removed  from  subject 


1  Temperature  Test. 
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calibration  rig  was  enclosed  in  a  plastic  tent  which  was  open  at  the 
bottom.  A  thermistor  driven  temperature  control  circuit  was  connected  to  a 
standard  fan  heater  positioned  beneath  the  tent  as  shown  in  Figure  3-26. 
Using  this  system  the  temperature  of  the  calibration  rig  and 
accelerometers  could  be  maintained  at  any  desired  value  from  room 
temperature  to  40°  C  +0.2°C. 

By  placing  a  thermistor  inside  the  accelerometer  package  and 
recording  the  output  on  a  miniature  tape  recorder,  it  was  possible  to 
monitor  the  internal  temperature  of  the  body  mount  under  different 
conditions.  A  typical  test  is  shown  in  Figure  3-27  in  which  the  system  was 
turned  on  and  allowed  to  warm  to  a  stable  temperature,  then  attached  to  a 
subject  for  30  minutes  and  then  allowed  to  return  to  room  temperature. 

This  and  similar  tests  indicated  that: 

(1)  from  a  "cold"  start(about  2CPC)  a  minimum  of  2  hours  45 

minutes  is  required  to  reach  a  stable  operating 
temperature , 

(2)  when  stabilized  to  room  temperature  the  accelerometer 

temperature  will  change  at  a  rate  of  0.1°C/minute  if 
the  body  mount  is  attached  to  a  subject, 

(3)  when  removed  from  the  subject  the  accelerometer 

temperature  requires  another  2  hours  45  minutes  to 
return  to  room  temperature. 

Additional  tests  were  performed  and  it  was  found  that  if  the 
accelerometer  body  mount  was  stabilized  at  a  temperature  approximately 
midway  between  body  temperature ( 37°  C)  and  room  temperature,  the  internal 
body  mount  temperature  would  change  less  than  1°  C  during  a  30  minute 
period.  Also  the  internal  body  mount  temperature  would  return  to  the 
stabilized  temperature  within  10  minutes  after  being  removed  from  the 
subject.  A  typical  series  of  these  tests  is  shown  in  Figure  3-28  where  the 
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bracketed  data  sections  indicate  when  the  body  mount  was  attached  to  the 
subject  and  data  collected. 

Having  described  the  design,  fabrication,  testing  and  operation  of 
the  experimental  apparatus,  the  experimental  method  used  to  acquire  and 
process  data  from  subjects  will  be  presented  in  the  next  chapter. 
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CHAPTER  4 

THE  EXPERIMENTAL  METHOD 

A.l  Introduction 

4.2  Equipment  Preparation  and  Calibration 

4.3  Walking  Test  Sequences  and  Data  Collection 

4.4  Data  Processing 

4.5  Mathematical  Methods  used  in  Data  Processing 

4.6  Testing  of  the  Experimental  Method 


4 . 1  Introduction 

The  experimental  method  used  to  collect  and  process  data  is  presented 
in  this  chapter.  A  description  of  the  method  for  preparing  and  calibrating 
the  accelerometer  equipment  is  followed  by  a  discussion  of  the  walking 
test  sequences  and  the  procedure  for  collecting  and  storing  data  on  the 
computer  during  walking  tests.  The  data  processing  sequence  and  a  brief 
description  of  the  computer  programs  used  in  this  sequence  is  presented. 
The  complete  listings  for  these  computer  programs  are  contained  in 
Appendix  F.  The  mathematical  methods  used  to  integrate  and  filter  the  data 
along  with  a  discussion  of  the  initial  conditions  required  to  begin  the 
integration  are  presented  in  a  separate  section  following  the  data 
processing  section.  The  chapter  concludes  with  a  description  and 
discussion  of  the  experimental  tests  conducted  to  determine  the 
effectiveness  of  the  accelerometer  method  developed  in  this  study. 


The  preparation  and  calibration  of  the  measurement  system  equipment 
for  subject  testing  consisted  of  installing  the  body  mount  on  the 
calibration  rig,  temperature  stabilizing  the  body  mount  and  calibrating 
the  accelerometers.  The  initial  temperature  stabilization  period,  from  a 
cold  start(20°C),  was  approximately  2  3/4  hours.  When  this  initial 
temperature  stabilization  had  been  completed,  the  remaining  equipment 
preparation  and  calibration  was  completed  in  10  minutes.  The  following 
paragraphs  describe  the  procedure  to  be  performed  for  a  cold  start. 

The  body  mount  was  installed  on  the  calibration  rig  using  three 
adjustable  pins  with  wing  screws.  The  pins  had  tapered  ends  which  fit 
into  locator  holes  in  the  ends  of  the  aluminum  accelerometer  platform.  The 
wing  screws  were  used  to  secure  the  pins  and  were  alternately  loosened  and 
tightened  to  properly  secure  the  body  mount  to  the  calibration  rig.  The 
body  mount,  installed  on  the  calibration  rig,  is  shown  in  Figure  4-1. 

After  installing  the  body  mount  on  the  calibration  rig,  the 
subminiature  15  way  cable  was  connected  to  the  electronic  equipment  rack. 
At  this  time  the  16  coaxial  cables  which  carried  the  output  signals  fror. 
the  amplifiers  to  the  ADC  were  connected.  The  electronic  equipment  rack, 
with  the  cables  installed,  is  shown  in  Figure  4-2.  The  power  was  then 
applied  to  the  electronic  equipment.  Power  to  the  accelerometers  in  the 
body  mount  was  supplied  through  the  subminiature  15  way  connecting  cable. 

As  discussed  in  chapter  3(pp.  84-86),  the  body  mount,  containing  the 
accelerometers,  had  to  be  maintained  at  a  relatively  constant  temperature 
to  ensure  that  the  zero  offset  voltage  remained  constant  during 
calibration  and  data  collection.  The  thermal  zero  shift  of  the 
accelerometers  was  less  than  0.005  g's/°C,  from  Figure  3-10.  For  a  peak  to 
peak  signal  of  1  g,  the  zero  shift  would  be  IX  for  each  2  °C  change  in  the 
temperature  of  the  accelerometers.  The  temperature  stabilization  procedure 


Figure  4  -  3 .  The  Six  C.;i  1  i  brat  ion  Positions. 
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was  developed  to  ensure  that  the  temperature  o£  the  accelerometers  did  r.ct 
change  more  than  +1  ° C  during  calibration  and  data  collection. 

The  temperature  stabilization  procedure  began  when  the  power  to  the 
electronic  equipment  was  turned  on.  The  plastic  tent  was  placed  over  the 
calibration  rig  and  the  fan  heater  and  temperature  control  unit  positioned 
beneath  the  tent.  The  thermostatic  control  was  then  adjusted  to  the 
desired  temperature,  normally  lb-30  °C,  and  the  fan  heater  turned  on. 
Approximately  2  3/4  hours  was  required  for  temperature  stabilization.  Tne 
temperature  was  monitored  during  this  period  with  a  thermometer  located  in 
the  plastic  tent.  After  the  temperature  had  been  stabilized,  the 
calibration  procedure  was  performed. 

Calibration  of  the  accelerometers  was  accomplished  by  running 
computer  program  CALIE1  and  rotating  the  calibration  rig  through  the  6 
positions  which  were  described  in  chapter  3(pp.  82-83).  With  the 
calibration  rig  in  position  1,  as  shown  in  Figure  4-3,  the  operator 
started  program  CALIBl  and  entered  the  data  record  number,  subject  number 
and  a  code  which  indicated  if  the  calibration  was  being  performed  before 
or  after  the  walking  data  had  been  collected.  The  computer  then  displayed 
on  the  terminal  screen 

"CR  TO  I AKE  DATA  SAMPLE" 

which  indicated  that  the  accelerometer  output  voltages  for  position  1 
would  be  sampled  and  stored  when  the  operator  depressed  the  <carriage 
return>(<CR>)  key.  The  calibration  rig  was  then  indexed  through  the 
remaining  3  positions,  also  shown  in  Figure  4-3,  and  the  accelerometer 
output  voltages  were  sampled  and  stored  for  each  position  by  depressing 
the  <CK>  key  when  the  above  message  was  displayed.  The  calibration  rig  was 
held  in  each  position  for  one  minute  to  ensure  that  the  accelerometer 
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output  voltages  had  stabilized  before  the  data  sample  was  stored. 
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After  the  voltages  for  position  6  had  been  sampled  and  stored, 
program  CAL1B1  computed,  using  equations  (3.30)  and  (3.31),  the  scale 
factors  and  zero  offset  voltages  for  each  of  the  eight  accelerometers  and 
the  four  summing  and  four  difference  amplifiers.  The  raw  voltage  samples, 
and  the  computed  scale  factors  and  offsets,  were  then  stored  for  future 
use  in  data  file  CAL1BD.DAT,  and  printed  out  on  the  line  printer  for 
examination.  A  sample  output  is  shown  in  Figure  4-4  where  the  sampled 
output  voltages  for  each  of  the  16  channels  (accelerometers:  channels  1-6, 
difference  amplifiers:  channels  9-12,  summing  amplifiers:  channels  13-lfc) 
for  positions  1-6  appear  in  the  calibration  data  table.  The  computed  scale 
factors  and  zero  offset  voltages  were  then  printed  for  each  of  the  16 
channels. 

During  walking  tests,  calibration  was  performed  before  and  after 
walking  data  collection  and  the  mean  scale  factors  and  offsets  used  to 
convert  walking  voltages  to  acceleration  (in  g's).  Therefore,  the  printed 
output  showed  the  before  and  after  walk  calibration  and  the  mean  scale 
factors  and  offsets  computed  when  both  calibrations  had  been  completed. 
During  the  before  walk  calibration,  it  was  desirable  to  set  the  offsets  to 
near  zero  volts  and  the  scale  factors  equal  for  each  accelerometer  pair. 
This  was  not  essential,  but  if  the  calibration  output  values  were  not  ir 
the  acceptable  range,  then  the  gains  and  offsets  of  each  accelerometer 
could  be  adjusted  with  the  potentiometers  provided  on  the  electronic 
equipment.  The  calibration  procedure  was  then  repeated  until  acceptable 
values  were  obtained. 

After  successful  completion  of  the  calibration  procedure,  the  subje:t 
walking  tests  and  data  collection  were  started.  These  are  discussed  in 


the  following  section. 


MALE  SUBJECTS: 


Subject  Number 

Age 

Height  (cm) 

Weight  (kg) 

1 

40 

186.5 

93.0 

2 

25 

177.0 

63.5 

3 

44 

170.5 

77.5 

4 

32 

186.0 

86.5 

S 

28 

177.0 

69.5 

6 

35 

175.0 

74.0 

7 

23 

173.5 

71.4 

FEMALE  SUBJECTS: 

HEEL 

HEIGHT 

Subject  Number 

Age 

Height  (cm) 

Weight  (kg) 

Low (cm) 

High (cm) 

8 

23 

160.5 

54.2 

3.6 

7.1 

9 

29 

157.0 

49.2 

4.6 

8.4 

10 

26 

154.8 

52.6 

3.8 

8.5 

11 

27 

153.0 

64.5 

2.0 

7.8 

12 

24 

161 .0 

60.9 

3.3 

6.8 

13 

27 

162.5 

54.0 

2.1 

5.8 

14 

31 

161.5 

56.0 

2.9 

6.5 

Mean  Heel  Rise  =  4.1  cm 


Table  4-1.  Subject  Data. 
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4 . 3  Walking,  Tost  Sequences  and  Data  Collection 

The  same  basic  walking  and  data  collection  method  was  used  for  all 
walking  tests.  The  walking  tests  were  conducted  in  the  OOEC  gait 
laboratory  and  consisted  of  straight  and  level  walking  for  a  distance  of  9 
to  10  meters.  The  subjects  were  free  to  choose  their  own  cadence  for  the 
walking  tests. 

The  testing  began  with  a  subject  interview  at  which  time  the  subjects 
were  weighed  and  measured;  the  results  are  shown  in  Table  4—1.  The  heel 
heights  of  the  low  and  high  heeled  shoes  of  the  female  subjects  were  also 
measured.  The  subjects  wore  their  own  shoes  during  the  tests  and  were 
allowed  to  select  the  heel  heights,  but  were  asked  to  bring  shoes  which 
they  considered  to  have  low  and  high  heels.  After  the  measurements  were 
completed,  the  test  sequences  were  explained  to  the  subject.  Normally,  the 
accelerometers  were  being  calibrated  simultaneously  with  the  subject 
interview.  This  allowed  the  walking  test  sequences  to  be  started 
immediately  following  the  interview. 

After  the  interview,  the  subjects  changed  into  test  clothing.  For 
male  subjects,  walking  shorts  with  a  loose  elastic  waist  band  were 
provided  while  a  modified,  knee  length  hospital  gown  was  provided  for 
female  subjects.  All  subjects  were  allowed  to  wear  their  own 
undergarments.  After  dressing,  the  temperature  stabilized  and  calibrateG 
body  mount  was  fitted  to  the  sacrum  of  the  subject.  The  subjects  then 
walked  about  the  gait  laboratory  for  five  minutes  to  become  accustomed  to 
the  body  mount  and  any  adjustments  necessary  to  tighten  or  reposition  the 
body  mount  were  made. 

The  walking  test  sequence  began  with  the  subject  standing  in  a 


stationary  position  at  one  end  of  the  walkway.  After  the  operator  started 
the  computer  data  collection  program,  DATLRG,  the  subject  remained  in  the 
stationary  position  for  approximately  three  seconds.  Then,  at  a  signal 


r 

given  by  the  operator,  the  subject  walked  to  the  end  of  the 
walkway(10  meters),  stopped  and  again  remained  stationary  until  the 
operator  indicated  that  data  collection  was  complete (approximately  3-5 
seconds  after  stopping).  Therefore,  each  basic  walking  test  sequence 
consisted  of  3  seconds  of  standing,  9-10  seconds  of  walking,  and  3  secor.as 
of  standing.  The  computer  program,  DATLRG,  displayed  the  data  collected 
on  the  terminal  screen  while  it  was  being  stored  in  the  computer  memory, 
and  a  decision  on  the  suitability  of  the  test  data  for  further  analysis 
was  made  at  the  time  of  the  test.  If  the  data  did  not  appear  suitable, 
the  test  was  repeated  immediately.  A  further  description  of  DATLRG  will  be 
presented  at  the  end  of  this  section. 

The  same  basic  test  sequence,  which  required  approximately  20  secor.:s 
to  complete,  was  repeated  for  the  three  walking  tests  of  female  subjects. 
The  first  walking  test  consisted  of  the  subject  performing  the  basic  test 
in  bare  feet.  During  the  second  test  the  female  subjects  wore  low  heeled 
shoes.  For  the  third,  and  final  test,  the  female  subjects  walked  in  high 
heeled  shoes.  Each  complete  testing  sequence,  for  female  subjects, 
consisted  of  a  calibration,  three  walks(bare  feet,  low  heeled  shoes,  higr. 
heeled  shoes),  and  a  second  calibration.  The  entire  procedure  was 
completed  in  less  than  30  minutes. 

The  three  walking  tests  performed  on  male  subjects  were  also 
completed  within  30  minutes.  For  the  first  two  tests,  the  male  subjects 
also  walked  in  bare  feet  and  in  low  heeled  shoes.  For  the  third  walk,  the 
male  subjects  were  fitted  with  a  backpack  containing  13. b  Kg(30  pounds 
weight)  of  sand.  In  this  third  test  the  male  subjects  wore  the  same  low 


heeled  shoes  as  in  the  second  walking  test.  Data  collection  was  again 
accomplished  using  computer  program  DATLRG. 
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The  data  collection  program,  DATLRG,  was  a  slightly  modified,  general 
purpose  data  collection  program  originally  used  by  Morris (1973) .  It  was 
modified  to  allow  data  collection  and  storage  in  the  PDF  11/34  at  the 
OOEC.  The  program  was  interactive,  with  the  operator  initially  entering 
the  number  of  channels  to  be  sampled,  the  sampling  time,  and  the  total  run 
time  for  the  test  being  performed.  For  the  walking  tests,  16  channels  were 
sampled  every  5  mil liseconds(2U0  Hz)  for  a  total  of  15.99  seconds.  When 
the  subjects  indicated  they  were  ready  to  begin  the  basic  walking 
sequence,  data  collection  and  storage  was  initiated  by  the  operator 
depressing  the  <CR>  key.  The  data  being  stored  was  displayed  on  the 
terminal  screen  for  preliminary  analysis.  This  allowed  the  operator  to 
determine  if  any  gross  discrepancies  occurred  during  data  collection  and, 
if  necessary,  rerun  the  test  immediately.  The  data  was  stored  by  a  record 
number,  selected  by  the  operator,  in  data  file  ADC. DAT,  and  could  be 
recalled,  using  the  record  number,  at  any  time  for  further  data 
processing. 

The  processing  of  data  collected  and  stored  during  the  walking  tests 
will  be  discussed  in  the  following  section. 
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4 . 4  Data  Processing 

The  purpose  of  the  data  processing  programs  was  to  produce  graphic 
records  of  the  rotational  and  translational  parameters  calculated  from  the 
data  collected  during  the  walking  tests.  The  programs  implemented  the 
theoretical  equations  explained  in  chapter  2  and  the  programs  followed  the 
sequence  of  the  theory  presented  in  that  chapter.  Additional  mathematical 
methods  were  required  in  this  implementation  and  these  are  discussed  in 
the  following  section.  A  brief  description  of  each  of  the  programs  used 
to  process  walking  test  data  is  presented  in  this  chapter.  Complete 
listings  of  all  the  computer  programs  are  contained  in  Appendix  F  and  may 
be  consulted  as  necessary. 

The  programs  were  written  in  FORTRAN  for  processing  on  the  PDF  11/3- 
computer  located  in  the  OOEC  gait  laboratory.  This  computer  used  the  DEC 
RT-11  operating  system  and  an  RK03  cartridge  disc  for  storing  data  files 
and  programs.  Some  additional  processing  and  analysis  was  performed  using 
the  PDF  11/45  computer  in  the  F.  J.  Seiler  Research  Laboratory,  L.S.  Air 
Force  Academy,  Colorado.  This  computer  uses  the  RSX-11  operating  system 
and  therefore  some  minor  modifications  to  the  programs  were  required. 
These  modifications  were  necessary  to  accommodate  the  slightly  different 
methods  used  bv  the  operating  systems  to  input  and  output  data  files.  The 
basic  FORTRAN  coding  and  program  structure  remained  unchanged. 

The  sequence  of  programs  required  to  process  the  data  is  shown,  in 
order,  in  Figures  4-5  through  4-9.  The  sequence  was  broken  for  the 
convenience  of  the  reader  so  that  he  could  refer  to  the  sequence,  while 
reading  the  program  description,  without  finding  it  necessary  to  change 
pages.  The  programs  appear  in  the  sequence  in  which  they  were  run.  The 
input  and  output  data  files  as  well  as  the  function  of  the  program  are 
presented  in  the  corresponding  figure. 
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PROGRAM  FUNCTION 


ADC. DAT  < -  DATLRG 
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ADC. DAT  — 
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Data  Collection** 
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CODATA.DAT 
INDACC.DAT 


DATCON 
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STADAT 
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u 

(continued  in  Figure  4-6.) 


- >■  Input  data  file 

< - Output  data  file 


♦♦Program  run  during  subject  walking  tests. 

Figure  4-5.  Data  Processing  Program  Sequence 
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After  data  had  been  collected  and  stored  in  ADC. DAT,  program  SUK1T 
was  run.  This  program  was  an  interactive,  general  purpose  program  used  to 
section  data,  to  enter  subject  and  test  identifiers  and  the  scale  factors 
and  offsets  computed  by  the  calibration  procedure.  After  the  identifiers 
and  other  parameters  were  entered,  the  data  was  displayed  for  sectioning. 
In  this  study,  the  data  was  divided  into  three  sections;  the  initial 
standing  phase,  the  walking  phase,  and  the  final  standing  phase.  After 
sectioning,  the  data  which  had  been  entered  and  the  indexes  for  the 
locations  of  the  sectioned  data  were  stored  in  ADC. DAT. 

The  sectioned  data  was  then  permanently  stored  on  a  magnetic 
cartridge  disc  with  program  STRDAT.  The  data,  with  its  associated 
identifiers,  scale  factors  and  offsets,  was  transferred  from  input  file 
ADC. DAT  to  the  output  file  RAWACC.DAT.  The  output  data  file  was  located  on 
a  cartridge  disc  installed  in  the  RK05.  Each  cartridge  disc  was  capable  of 
storing  the  data  for  the  three  walking  tests  performed  by  seven  different 
subjects.  The  cartridge  discs  provided  a  method  for  permanently  storing 
data  collected  during  subject  tests. 

The  processing  of  the  permanently  stored  data  was  begun  by  running 
program  DATCON.  The  purpose  of  this  program  was  to  convert  the  data  froc 
output  voltages  to  accelerat ions ( in  g's)  using  the  scale  factors  and  ztrj 
offset  voltages  from  the  calibration  procedure.  The  program  also  produced 
an  indexing  file,  1NDACC.DAT,  which  was  used  by  all  the  following  programs 
to  access  the  correct  data  locations.  The  program  read  data  from 
RAWACC.DAT  and  implemented  equation  (3.29)  to  convert  the  data  from 
voltage  to  acceleration ( in  g's).  The  converted  data  was  stored  in  output 
file  CODATA.DAT  for  use  in  the  following  programs. 

Program  STADAT  was  used  to  compute  statistics  on  each  of  the  standing 
and  the  walking  sections  of  the  data.  The  mean,  maximum,  minimum,  variance 
and  standard  deviation  was  computed  for  each  of  the  16  channels.  The  pair 
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(continued  in  Figure  4-7.) 


- >  Input  data  file 

«< -  Output  data  file 


Figure  4-6.  Data  Processing  Program  Sequence(continued) 
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mean  value  for  each  accelerometer  pair  was  computed  for  use  in  program 
1NANGL  where  the  initial,  standing  position,  angles  were  determined.  The 
statistics  were  stored  in  data  file  COSTAT.DAT  and  printed  out  on  the  line 
printer . 

The  converted  data,  stored  in  CODATA.DAT,  was  then  filtered  to  remove 
undesirable  high  and  very  low  frequency  noise  using  program  F1LDAT.  The 
filtering  method  is  described  in  section  A. 5  and  is  an  eighth  order, 
recursive  Butterworth  bandpass  filter.  The  filtering  subroutine  BNDPAS  was 
used  by  all  the  filtering  programs.  Program  F1LDAT  read  data  from 
CODATA.DAT,  filtered  it  by  calling  subroutine  BNDPAS,  and  then  stored  the 
filtered  acceleration  data  in  CODATA.DAT.  The  original  unfiltered  data  in 
CODATA.DAT  was  replaced  by  the  filtered  data. 

All  three  data  sections  were  stored  in  CODATA.DAT.  Program  Sl.'PDAT 
was  used  to  remove  the  walking  section  data,  section  2,  and  store  it  in  a 
new  data  file.  Program  SWPDAT  read  data  from  CODATA.DAT  and,  using  the 
indexing  information  from  1NDACC.DAT,  separated  the  walking  section  data 
and  stored  it  in  output  data  file  CODATB.DAT  for  use  in  the  following 
programs. 

The  next  program  in  the  sequence,  SPEDIT,  was  an  iterative  program 
which  called  the  following  two  programs,  SPOMEG  and  SPMEAN,  to  produce  the 
angular  velocity  vector,  The  accelerometer  pair  differences  were  input 
from  CODATB.DAT  for  integration  by  program  SPOMEG  which  was  automatically 
called  by  SPEDIT.  This  program,  and  all  other  integration  programs,  used 
subroutine  AM3INM  and  a  subroutine  containing  the  differential  equations 
to  be  integrated,  in  this  case  subroutine  DIOMGM,  to  perform  the  require; 
integration.  The  integration  method,  an  Adams-Moul ton  predictor  corrector, 
will  be  discussed  in  section  A. 5.  The  program  SPOMEG,  and  its  equation 
subroutine,  implemented  the  integration  of  equations  (2.31),  (2.32)  and 

(2.32)  and  produced  the  angular  velocity  vector,  w.  After  the  integration 
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(continued  in  Figure  4-8.) 

- >-Input  data  file 
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Figure  4-7.  Data  Processing  Program  Sequence (continued) 
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was  completed,  SPED1T  called  program  SPMKAN  to  compute  the  mean  value  of 
each  of  the  three  components  of  w.  The  means  were  then  used  to  compute  an 
offset  correction  factor  wiiich  was  subtracted  from  the  input  data  during 
the  next  integration.  The  rationale  for  this  correction  will  also  be 
presented  in  section  4.5.  The  integration  was  then  repeated  and  the  means 
were  recomputed.  This  iterative  procedure  was  continued  until  the  mean 
values  of  all  three  components  of  m  were  less  than  a  specified  tolerance, 
in  this  study  1  x  10  l  Thus,  SPEDIT  produced,  by  integrating 
accelerometer  pair  differences,  an  angular  velocity  vector,  <£ >  with  zero 
mean  value  and  stored  this  vector  in  data  file  0MEGA.DAT.  To  remove  any 
low  frequency  oscillations  which  may  have  been  produced  by  the  integration 
process,  the  data  in  OMEGA. DAT  was  then  filtered  by  program  F1L0MG  which 
used  the  same  filtering  subroutine,  BNDPAS,  previously  described.  The 
unfiltered  data  originally  stored  in  0MEGA.DAT  was  replaced  by  the 
filtered  data. 

Following  computation  of  the  angular  velocity,  the  initial  values  of 
the  angles  which  describe  the  orientation  of  the  pelvis  during  standing 
were  computed.  The  program  1NANGL  calculated  these  angles  from  the  mean 
values  of  the  accelerometer  readings  measured  during  the  initial  standing 
phase  of  the  walking  tests.  These  mean  values  wer.  computed,  and  stored  in 
CUSTAT.DAT,  by  program  STAUAT.  Using  GUSTAT  as  the  input  data  file,  IKANC-L 
computed  the  initial  angles  and  stored  them  in  data  file  STRANG. DAT  for 
use  in  program  COANGL.  The  method  used  to  compute  these  initial  angles 
will  be  presented  in  detail  in  section  4.5. 

With  the  initial  angles  computed,  program  COANGL  was  run  to  integrate 
equations  (2.60),  (2.61)  and  (2.62)  and  produced  the  angles  4,  £  ,  and  £  . 

These  three  angles  defined  the  orientation  of  the  pelvis  during  the 


walking  phase.  This  program  also  used  subroutine  AM31NM  as  the  integration 
routine  and  the  differential  equations  were  contained  in  subroutine 
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(continued  in  Figure  4-9.) 
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Figure  4-8.  Data  Processing  Program  Sequence (continued) 
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D1ANGL.  After  computation,  the  angles  were  filtered  by  program  F1LANC  and 
stored  in  data  file  NEWANG.DAT. 

With  the  angles  determined,  the  transformation  matrix  could  be 
computed.  The  transformation  matrix  was  computed  by  running  program  COTRAN 
which  implemented  equation  (2.46),  the  equation  which  defined  the 
transformation  matrix  in  terms  of  angles  4,0  ,  and  3.  The  program  read 
the  angles  from  NEWANG.DAT,  performed  the  required  trigonometric 
computations  and  stored  the  resulting  transformation  matrix  in  COMTRX.DAT. 
It  was  now  possible  to  transform  any  vector  measured  in  the  body-centered 
coordinate  system  into  the  fixed  coordinate  system  and  vice  versa. 

The  program  COACCL  implemented  the  theory  regarding  the  computation 
of  the  acceleration  of  the  pelvis  discussed  in  section  2.5.  The  sum  of  the 
accelerations  measured  by  one  pair  of  accelerometers  was  transformed  into 
the  fixed  coordinate  system  by  implementing  equation  (2.71).  The 
acceleration  of  the  pelvis  was  then  computed  by  subtracting  the 
gravitational  acceleration  from  the  transformed  measured  acceleration, 
equation  (2.73).  The  resulting  acceleration,  the  acceleration  of  the 
pelvis  in  the  fixed  coordinate  system,  was  then  stored  in  ORGACC.DAT. 

The  acceleration  data  in  ORGACC.DAT  could  contain  small  offset  errors 
which  were  removed  by  running  the  next  three  programs  in  the  sequence. 
Program  FILACC,  the  filtering  program,  removed  the  unwanted  low  and  high 
frequency  signals  from  the  data.  The  mean  value  of  the  acceleration  was 
then  computed  by  program  ACMEAN  and  the  computed  means  were  stored  in  data 
file  STMEAN.DAT.  The  mean  of  the  acceleration  was  then  adjusted  to  zero  by 
program  ADJACC  which  read  the  accelerations  from  ORGACC.DAT,  subtracted 
the  mean  values  stored  in  STMEAN.DAT  and  then  stored  the  acceleration 
values,  with  zero  mean,  in  data  file  ORGACC.DAT.  The  rationale  for  this 
sequence  of  processing  will  also  be  presented  in  section  4.5. 
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Figure  4-9.  Data  Processing  Program  Sequence (continued) . 
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Using  a  similar  method,  the  velocity  was  computed  by  progs  ar.is  CURVE.. , 
11LVEL,  VEMEAN  and  ADJVEL.  The  accelerations  stored  in  URCACC .  DAI  were 
input  to  program  CORVEL  which  performed  the  necessary  integration  and 
stored  the  integrated  velocity  in  data  file  OkCVEL.DAT.  The  data  was  then 
filtered,  with  program  F1LVEL,  and  the  mean  values  computed,  with  program 
VEMEAN.  The  moan  value  of  the  velocity  was  adjusted  to  zero  by  running 
program  ADJVEL  and  the  results  were  stored  in  ORGVEL.DAT. 

The  final  step  in  the  data  processing  sequence  was  the  integration  of 
the  velocity  to  obtain  position.  This  integration  was  performed  by  program 
CORPUS  which  read  the  velocity  data  stored  in  ORGVEL.DAT,  integrated  it 
and  stored  the  output  in  ORGPOS.DAT.  The  data  files  now  contained  all  the 
rotational  and  translational  parameters  which  described  the  three 
dimensional  motion  of  the  pelvis  during  the  walking  phase  of  the  subject 
tests. 

The  preceding  programs  could  either  be  run  separately,  in  an 
interactive  mode,  or  automatically  using  the  command  file  program,  DATRl':,'. 
This  program  sequentially  initiated  and  ran  the  data  processing  programs 
beginning  with  UATCON  and  finishing  with  CORPUS.  When  run  on  the  PDP  11  / -. 5 
computer,  the  data  could  be  processed  and  all  data  files  stored  in  eight 
minutes.  The  stored  data  files  could  then  be  analyzed. 

To  facilitate  the  viewing  and  analyzing  of  the  rotational  and 
translational  parameters,  a  p rogram  to  plot  the  data  on  the  terminal 
screen,  PL0T1T,  was  developed.  This  program  displayed  the  computed  data, 
in  graphical  form,  on  a  Textronics  storage  terminal  screen.  The  program 
was  interactive  and  allowed  the  operator  to  plot  either  all  the  data  in  a 
particular  data  file,  or  selected  portions  of  the  data  file.  Any  of  the 
data  files  containing  the  translational  and  rotational  parameters  computed 
during  data  processing  could  be  accessed  by  PL0T1T.  This  program  provided 
an  easy  method  for  selectively  viewing  the  data  produced  from  the  walking 
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Figure  4-10.  Sample  Plot  of  Entire  Data  File  using  PLOTIT 
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Figure  4-11.  Sample  riot  of  Single  Cycle  using  PLOTIT 


tests.  A  sample  plot  of  an  entire  walking  section  of  data  is  shown  in 
Figure  4-10,  while  a  single  step  cycle  from  the  same  data  is  shown  in 
Figure  4-11.  A  complete  set  of  plots  of  all  the  data  files  for  one 
subject  produced  using  this  data  processing  method  are  contained  in 
Appendix  G. 

A  discussion  of  the  mathematical  methods  used  to  perform  the 
integration  and  filtering  of  data  files  during  data  processing  is 
presented  in  the  following  section. 
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4.5  Mathematical  Methods  used  in  Data  Processin 


The  implementation  of  the  theoretical  analysis  presented  in  chapter  2 
required  the  integration  of  four  sets  of  differential  equations.  An 
investigation  was  made  of  commonly  used  methods  for  solving  first-order 
systems  of  differential  equations;  the  Runge-Kutta  method,  Adams-Moulton 
and  other  "predictor-corrector"  methods,  and  the  extrapolation  or 
Richardsonian  methods.  The  primary  considerations  in  selecting  an 
integration  method  were  stability  and  accuracy  of  the  solution  and  the 
efficiency  of  the  method  when  programmed  for  use  on  the  digital  computer. 

A  detailed  explanation  of  these  methods  may  be  found  in  Hamming( 1962) , 
Scarborough ( 1966 )  or  Acton(1970). 

Most  integration  methods  are  based  on  extrapolating  the  solution 
forward  from  a  present  known  solution,  the  initial  condition.  The  Runge- 
Kutta  method  starts  from  a  known  value  and  then,  by  evaluating  a  series  of 
derivative  values,  forms  a  weighted  average  slope.  The  next  value  is  then 
computed  by  multiplying  the  slope  by  the  step  size,  or  interval,  and 
adding  this  product  to  the  previous  known  value.  The  solution  over  a  given 
time  period  proceeds  by  "marching"  from  one  value  to  the  next,  always 
assuming  that  the  previously  computed  value  was  correct.  There  is  no 
internal  accuracy  check  for  the  Runge-Kutta  method,  however  the  accuracy 
of  the  method  is  dependent  on  the  step  size  and  can  be  estimated.  The 
equations  for  the  Runge-Kutta  method  and  its  accuracy  can  be  found  in  most 
calculus  or  numerical  methods  textbooks,  Scarborough ( 1 966 ) .  The  method  is 
not  very  efficient  due  to  the  large  number  of  evaluations  of  the 


differential  equations  which  are  required.  Acton  sumniarizes  the 
weaknesses  of  this  method  and  states: 


"In  either  case  the  arguments  against  Runge-Kutta  are 
formidable.  It  should  be  used  only  to  get  starting  values,  which 
it  does  very  well." 


In  contrast  to  the  Runge-Kutta  method,  which  assumes  the  computed 
solution  is  correct,  the  predictor-corrector  methods  use  the  past  history 
of  the  solution  to  compute  the  next  value  of  the  solution.  The  method 
consists  of  a  predictor  process  which  fits  a  polynomial  to  the  three  most 
recent  derivatives  of  the  function,  extrapolates  the  fitted  polynomial  to 
find  the  next  value  of  the  derivative  and  then  integrates (computes  the 
area  under  the  derivative  curve)  the  fitted  polynomial  to  produce  the 
"predicted"  value  of  the  function  at  the  next  point.  This  predicted  value 
is  then  substituted  into  the  known  differential  equation  to  yield  a  new 
value  of  the  derivative  which  has  not  been  extrapolated.  A  second 
integration,  using  the  new  derivative,  is  performed  to  produce  a 
"corrected"  value  of  the  function.  The  difference  between  the  predicted 
and  corrected  values  provide  an  internal  measure  of  the  error  remaining  in 
the  corrected  value  of  the  function.  If  this  difference  is  too  large,  the 
corrector  process  can  be  repeated,  with  the  corrected  value  replacing  the 
predicted  value,  until  the  difference  becomes  less  than  some  desired 
tolerance.  Thus,  the  predictor-corrector  provides  a  "check"  on  how  the 
solution  is  proceeding  and  an  estimate  on  the  accuracy  of  the  solution. 

In  both  the  Runge-Kutta  and  predictor-corrector  methods,  the 
integration  step  size,  or  interval,  is  selected  and  used  as  long  as  it 
gives  satisfactory  results.  It  may  be  adjusted,  but  normally  remains 
constant  for  long  time  periods  during  the  integration  process.  The  values 
produced  by  these  methods  converge  mathematically  to  the  exact  solution  of 
the  differential  equation  as  the  step  size  approaches  zero,  but  the  step 
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size  is  never  permitted  to  approach  zero.  Due  to  the  increased 
computational  time  required  by  decreased  step  size,  the  numerical  solution 
is  considered  acceptable  if  the  chosen  step  size  produces  a  "good" 
estimate  of  the  solution. 

The  philosophy  of  the  Richardsonian  method  is  to  extrapolate  the  step 
size  "to  the  limit."  In  this  method,  several  estimates  of  the  next  value 
of  the  function  are  generated  using  successively  smaller  step  sizes.  These 
estimates  are  then  used  to  predict  what  the  next  value  of  the  function 
would  be  if  the  step  size  had  been  permitted  to  go  all  the  way  to  zero. 
This  philosophy  is  very  attractive,  however  each  forward  step  is  much  more 
complex  than  either  of  the  other  methods.  This  method  may  also  require 
many  more  evaluations  of  the  differential  equations  at  each  step  which 
increases  the  computational  time.  Its  main  advantage  is  the  accuracy  of 
the  solution  and  with  "smooth"  functions  the  step  size  can  be  increased  to 
relatively  large  values  without  decreasing  the  accuracy. 

Evaluations  of  these  three  numerical  integration  methods  were 
reported  by  Clark(1968)  and  Fox(1972).  The  objectives  of  these  studies 
were  to  test  and  compare  these  methods  on  various  problems  for  speed  anc 
accuracy.  One  of  the  systems  of  differential  equations  tested  by  Clark  was 
Euler's  equations  of  motion  for  rigid  bodies.  This  set  of  first  order, 
non-linear  differential  equations  are  very  similar  to  those  developed  and 
used  in  this  study.  The  results  of  Clark's  tests  showed  that  the 

_  t 

Richardsoniar  method  was  preferable  when  a  relative  error  of  less  than  10 
was  desired. 

For  this  study  an  accuracy  of  10  '  was  considered  quite  sufficient 
and,  for  ease  of  programming,  a  simple,  but  relatively  efficient, 
integration  method  was  needed.  Therefore,  a  predictor-corrector  method  was 
selected  and  programmed  for  the  computer.  The  Adams-Moulton  system, 
Hamming( 1962) ,  was  used  as  the  basis  for  subroutine  AM3INM,  the 
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integration  routine  called  by  all  integrating  programs  during  data 
processing.  This  subroutine  required  the  set  of  differential  equations, 
which  were  to  be  solved,  to  be  stored  in  a  separate  subroutine  which  was 
then  called  by  AM3INM.  A  complete  listing  for  AM3INM  and  the  three 
differential  equations  subrout ines (DIOMGM ,  DIARCL  and  D1RD0T)  are 
contained  in  Appendix  F. 

As  a  test  of  the  Runge-Kutta  and  Adams-Moul ton  methods,  twenty  cycles 
of  the  differential  equation 

x(t)  =  a  a.'  cos  (wt)  (4.1) 

with  hi  =  6.28  rad/sec  and  variable  amplitude,  a,  were  integrated  and 
compared  with  the  analytical  solution 

x(  t )  =  a  sin(mt ) .  (4.2) 

A  sampling  rate  of  200  Hz.  was  used  to  simulate  the  data  sampling  rate 
used  in  the  data  collection  process.  These  tests  clearly  demonstrated  the 
superior  accuracy  of  the  Adams-Moulton  method.  A  typical  plot  of  the 
integration  errors  of  the  two  methods  is  shown  in  Figure  4-12.  The 
differences  in  scale  and  the  instability  of  the  Runge-Kutta  method, 
beginning  at  cycle  17,  should  be  noted.  Both  methods  required 
approximately  the  same  amount  of  computer  time  to  complete  the  integration 
process . 

The  initial  conditions,  or  starting  values,  for  the  first  data  point 
must  be  known  before  the  integration  process  can  begin.  Therefore,  the 
initial  conditions  for  the  angular  velocity,  orientation  angles, 
acceleration,  velocity  and  position  of  the  pelvis  had  to  be  known  for  each 
walking  test.  For  this  reason,  the  initial  data  was  recorded  with  the 
subject  standing  in  a  stationary  position.  Since  the  pelvis  was 
stationary,  the  initial  values  for  the  angular  velocity,  acceleration,  and 
velocity  were  assumed  to  be  zero.  It  was  also  assumed  that  no  translation 
was  required  to  bring  the  body-centered  coordinate  system  into  coincidence 


with  the  fixed  coordinate  system  and  thus,  the  initial  values  of  the 
position  were  also  zero.  Only  the  initial  orientation  angles  of  the  pelvis 
had  to  be  computed. 

These  initial  angles  were  computed  from  the  accelerometer  outputs 

recorded  during  the  initial  standing  phase.  These  outputs  were  determined 

by  the  orientation  of  the  sensitive  axis  of  the  accelerometer  with  respect 

to  the  gravity  vector (j^-lZ)  in  the  fixed  coordinate  system.  The 

gravitational  vector,  in  the  body-centered  system,  can  be  computed  from 

R 

&B  "  CB  8  R  (4.3) 

where , 

gg=  gravity  vector  in  body-centered  coordinate  frame 

p 

Cg=  inverse  of  the  transformation  matrix,  equation  (2.46) 

0 
0 

-1 

Performing  the  matrix  multiplication  indicated  in  equation  (4.3)  yields 
-sinQ  cosf 
sin  if 
-cos  8  cos 

Therefore,  the  accelerometer  outputs  during  standing  are: 


a i  =  -sin 

6  cos  f 

(sensitive 

axis 

along  _1J 

(4.5) 

a  n  -  sin 

<*> 

(sensitive 

axis 

along  _2] 

(4.6) 

a  ^  =  -cos 

6  COS  i> 

[sensitive 

axis 

along  _3] 

(4.7) 

It  is  significant  to  note  that  angle  B  is  missing  from  the  above 
equations.  Recall  that  the  last  rotation  of  the  body-centered  system,  to 
bring  it  into  coincidence  with  the  fixed  system,  was  through  angle  B  about 
the  Z  axis.  Conversely,  the  first  rotation  of  the  fixed  system,  to  bring 
it  into  coincidence  with  the  bodv-cenlered  system,  was  through  angle  S  \ 

u 
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about  the  Z_  axis,  as  shown  in  Figure  4-13,  If  the  body-centered  system  is 
initially  aligned  with  the  fixed  system,  then  all  accelerometers  are 
either  horizontal  or  vertical  and  output  0  or  -1  g.  A  rotation  about  the 
2.  axis  will  not  effect  any  of  the  accelerometer  outputs  since  the 
gravitational  vector  is  aligned  with  the  Z  axis.  The  rotation  sequence 
used  in  this  study  resulted  in  a  more  generalized  solution  than  the  norc.al 
Euler  angle  sequence  in  that  the  subject  did  not  have  to  stand  or  walk  in 
any  particular  direction.  If  the  initial  value  of  £3  was  assumed  to  be 
zero,  this  resulted  in  the  Y  axis  being  located  in  the  direction  the 
subject  was  facing.  The  subjects  were  free  to  select  the  direction  in 
which  they  began  to  walk  and  were  not  restricted  to  following  a  line  on 
the  floor  representing  the  _Y  axis.  The  X_  axis,  for  computational  purposes, 
was  automatically  set  to  the  direction  the  subject  selected  during  the 
initial  standing  phase. 

The  computer  program  INA.NGL  solved  equations  (4.5),  (4.6)  and  (4.7; 
for  the  initial  angles  <f>  and  e  and  set  the  initial  value  of  6  to  zero. 

The  input  data  to  INANGL  were  the  average  outputs  of  all  accelerometers 
oriented  in  one  particular  measurement  direction.  These  were  computed  ir. 
the  statistics  program,  STAJDAT ,  and  stored  in  data  file  COSTAT.DAT. 

If  a  small  error,  in  zero  offset,  was  present  in  the  initial 
conditions,  errors  could  be  produced  in  the  solution  by  the  integration 
process.  The  integral  of  a  constant  is  a  ramp  function,  shown  in 
Figure  4-14.  Therefore,  if  a  small  offset  error  was  present  in  the  initial 
orbit  ions  of  a  periodic  function  which  was  to  be  integrated,  the  output 

• ->r  with  a  ramp  function  superimposed  on  the  solution  as  shown  in 
■  s*>  ot  non-linear,  or  cross-coupled,  differential 

.  rcJ,  then  offset  errors  could  introduce  low 

■  rather  than  the  simple  ramp 
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difficult  to  eliminate  all  offset  errors  and  therefore  a  digital  bandpass 
filter  was  used  after  every  integration  to  remove  any  low  frequency  errors 
in  the  solution. 

The  digital  filter  used  in  this  study  was  a  recursive,  eighth  order, 
Butterworth  bandpass  filter,  Hamming ( 1977 ) .  The  filter  was  programmed  as 
subroutine  BNDPAS  and  was  called  by  all  the  filtering  programs  during  data 
processing.  The  bandpass  frequencies  were  entered  when  the  filter  program 
was  run  which  allowed  these  frequencies  to  be  adjusted  for  each  specific 
filtering  operation.  A  recursive  filter  was  used  to  eliminate  any  phase 
shift  in  the  output  caused  by  the  filtering  process.  Butterworth 
filters(and  most  other  filters)  are  not  symmetric  and  therefore  the  phase 
relation  between  output  and  input  is  not  the  same  for  all  frequencies.  The 
recursive  filter  eliminates  the  phase  shift  by  processing  the  data  in  the 
forward  direction  and  then  reprocessing  the  output  in  the  reverse 
direction.  If  there  is  a  phase  shift  at  a  given  frequency,  produced  in  the 
forward  pass  through  the  filter,  the  same  phase  shift,  with  opposite  sign 
at  the  same  frequency,  is  produced  in  the  reverse  direction.  Therefore, 
the  two  phase  shifts  exactly  cancel  when  the  output  of  the  forward 
direction  pass  is  reprocessed  in  the  reverse  direction. 

For  the  angular  velocity,  acceleration  and  velocity  integrations,  the 
filtering  of  the  integrated  output  was  followed  by  programs  to  compute  the 
mean  value  of  the  integrated  data.  If  the  mean  value  was  not  zero,  then 
the  computed  mean  was  subtracted  from  the  integrated  data  to  ensure  that 
the  mean  of  the  integrated  data  was  zero  prior  to  beginning  integration  of 
the  next  variable  in  the  sequence.  For  example,  programs  FILVEL,VEMLAN  and 
ADJVEL  were  run  following  the  integration  of  the  acceleration  data.  Low 
frequency  errors  in  the  velocity  data  output  by  this  integration  were 
removed  by  FILVEL.  The  mean  values  of  the  data  were  computed  by  VEF1EAN  and 
then  adjusted  to  zero  by  ADJVEL.  This  process  minimized  any  offset  errors 
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present  in  the  velocity  data  before  it  was  integrated  to  produce  position 
data.  This  method  was  only  implemented  when  the  initial  conditions  for 
the  following  integration  were  assumed  to  be  zero  and  proved  to  be  very 
effective  in  eliminating  integration  errors  caused  by  zero  offset  error. 

The  testing  performed  on  the  measurement  system  and  the  data 
processing  method  will  be  discussed  in  the  following  section. 


Figure  4-17.  Hydraulic  Bench  Apparatus  Block  Diagram. 


The  accelerometer  measurement  system,  and  its  associated  data 
processing  programs,  developed  in  this  study  was  tested  experimentally  to 


compare  it  with  other  kinematic  measurement  systems.  Experimental 
verification  of  the  method  was  used  because  a  generalized  theoretical 
verification  is  virtually  impossible.  The  non-linear  differential 
equations  developed  in  this  study  have  no  known  analytical  solution. 
Therefore,  it  is  impossible  to  specify  input  variables  which  can  be 
processed  and  then  compared  with  a  known  solution  to  estimate  the  accuracy 
of  the  computing  method.  It  is  also  impossible  to  track  the  propagation  of 
errors  in  accelerometer  alignment,  cross-axis  sensitivity,  etc.  through 
the  complex  theoretical  equations  which  were  developed  in  chapter  2  with 
any  degree  of  confidence  in  the  results.  In  addition,  the  experimental 
comparisons  were  made  based  on  the  results  obtained  from  data  processing 
and  therefore  any  differences  include  all  error  sources  present  in  the 
equipment  and  data  processing  method.  Two  tests  were  conducted:  the  first 
tested  the  systems  effectiveness  in  computing  rotational  parameters,  the 
angular  velocity  and  angular  position,  and  the  second  compared  the 
translational  displacements  computed  by  the  accelerometer  method  with 
those  measured  by  the  traditional  cinephotographic  method. 

The  rotational  test  was  performed  with  a  hydraulic  bench 
apparatus (electrohy draulic  servomechanism  system)  located  in  the  Control 
Electronics  Laboratory  of  the  Engineering  Science  Department  at  Oxford 
University.  This  apparatus,  shown  in  Figure  4-16,  consisted  of  a  shaft 
which  was  rotated  by  a  hydraulic  actuator.  The  operation  of  the  hydraulic 
actuator  was  controlled  electrically.  A  simplified  block  diagram  of  the 
system  is  shown  in  Figure  4-17.  The  signal  generator  was  adjusted  to  input 
the  desired  motion,  in  the  form  of  a  voltage  signal,  to  the  electronic 
control  circuits.  The  control  circuits  produced  the  necessary  electronic 


gure  4-18.  Accelerometer  Body  Mount  Installed  on  Hydraulic  Bench  Shaft 
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signals  for  the  servo  valve  which  controlled  the  flow  of  oil  to  the 
hydraulic  actuator.  The  oil  flowing  through  the  hydraulic  actuator  caused 
the  shaft  to  rotate.  A  potentiometer  and  tacho-generator  measured  the 
angular  position  and  angular  velocity  of  the  shaft.  These  two  outputs, 
"feedback"  signals  describing  the  actual  motion  of  the  shaft,  were  used  by 
the  control  circuits  to  adjust  the  electrical  servo  valve  signals  to 
ensure  that  the  actual  shaft  motion  closely  matched  the  desired  motion. 
This  explanation  has  been  brief  and  simple,  but  should  provide  sufficient 
information  to  understand  the  test  procedure. 

The  accelerometer  body  mount  was  securely  attached  to  an  aluminum 
disc  mounted  on  the  shaft,  shown  in  Figure  4-18.  In  this  position,  the 
body  mount  rotated  about  the  2  axis  when  the  shaft  was  rotating.  The 
accelerometers  had  been  temperature  stabilized  and  calibrated,  using  the 
method  previously  described,  before  being  mounted  on  the  shaft.  The 
signal  generator  was  adjusted  to  produce  a  sinusoidal  oscillation  of  the 
shaft  and  the  amplitude  of  the  oscillation  was  adjusted  by  increasing  or 
decreasing  the  output  voltage.  The  output  signals  from  the  accelerometer 
difference  amplifiers,  the  potentiometer (measured  angular  position  of  the 
shaft)  and  the  tacho-generator (measured  angular  velocity  of  the  shaft) 
were  recorded  on  a  six  channel  tape  recorder  for  playback  into  the 
computer . 

Three  rotation  tests  were  performed  and  each  consisted  of  starting 
the  shaft  oscillating  from  a  stationary  position,  recording  the  output 
signals  for  10  to  15  seconds  and  then  stopping  the  oscillation.  The  signal 
generator  voltage  level  was  adjusted  to  produce  +2.5°,  +6°  and  +12° 
oscillations  of  the  shaft.  After  the  test  data  were  recorded,  the 
accelerometer  body  mount  was  removed  and  the  accelerometers  were 
recalibrated.  The  mean  values  of  the  before  and  after  test  calibrations 
were  used  as  the  accelerometer  scale  factors  and  offsets  in  data 
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Figure  4-19.  Hydraulic  Bench  Test  Results  for  One  Cycle 
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processing.  The  scale  factors  of  the  potentiometer  and  tacho-generator 
were  measured  and  found  to  be  -3.82  volts/radian  and 
-0.237  volts/radian/second  respectively. 

The  data  recorded  during  the  tests  was  then  stored  on  the  computer 

and  the  accelerometer  data  were  processed  using  the  programs  necessary  to 

produce  the  angular  velocity  and  angular  position.  The  potentiometer  and 

tacho-generator  voltages  were  converted  to  degrees  and  radians/second 

using  the  measured  scale  factors.  The  results  were  then  plotted  and  the 

mean  absolute  differences  between  the  measured  and  computed  rotations  were 

calculated.  The  graphical  results  of  a  single  cycle  of  one  test  are  shown 

in  Figure  4-19.  The  complete  graphical  results  of  all  three  tests  are 

contained  in  Appendix  H.  The  mean  absolute  differences  between  the 

measured  and  computed  angular  velocities  for  the  three  tests  were  0.079, 

0.163  and  0.295  radians/second.  The  corresponding  peak  to  peak  amplitudes 

were  1.26,  3.24  and  7.37  radians/second  and  therefore  the  mean  difference 

between  the  measured  and  computed  angular  velocity  was  less  than  6.2%  of 

the  peak  to  peak  amplitude.  Similarly,  the  mean  absolute  differences 

o  o 

between  the  measured  and  computed  angular  position  were  0.33  ,  0.81  and 

o  o  o 

1.62  .  The  corresponding  peak  to  peak  amplitudes  were  5.6  ,  13.6  and 

O 

28.6  .  The  mean  difference  between  the  measured  and  computed  angular 
position  was  less  than  6.0%  of  the  peak  to  peak  amplitude  for  the  three 
tests.  These  results  indicated  that  the  accelerometer  system  developed  in 
this  study  could  measure  the  angular  velocity  and  angular  position  to 
within  7%  of  the  peak  to  peak  amplitude  of  the  motion. 

Translational  displacements  computed  by  the  accelerometer  method  and 
the  traditional  cinephotographic  method  were  used  to  assess  the 
accelerometer  measurement  systems  effectiveness  in  determining  the 
translational  parameters.  In  this  test,  black  skin  markers,  normally 
placed  on  anatomical  landmarks,  were  attached  to  the  accelerometer  body 
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Figure  4-21.  Projected  Frame  of  Cine  Film 


mount.  A  basic  walking  test  sequence  was  conducted  on  a  male  subject  witn 
simultaneous  recording  of  the  walk  on  16mm  cine  film  with  two  cine 
cameras . 

The  cinephotography  method  used  in  this  test  was  developed  by 
Miss  L.  Huntington  for  use  in  the  OOEC  gait  laboratory.  Two  hifah  speed 
Bollex  cine  cameras  were  located  as  shown  in  Figure  4-20.  To  describe  the 
coordinates  of  filmed  markers  in  three  dimensions,  it  was  necessary  to 
have  two  projective  observations  for  each  marker  and  a  knowledge  of  the 
camera  parameters,  e.g.  focal  length,  position,  attitude  and  image 
distortion.  The  camera  system  was  calibrated  using  a  three-dimensional 
target  system  which  consisted  of  four  targets  on  each  of  nine  vertically 
hanging  threads.  The  threads  were  positioned  so  that  the  cameras  could  be 
aligned  properly  using  the  principles  of  parallax.  Using  the  known 
calibration  target  distances  and  the  distances  between  calibration  targets 
on  the  projected  inage(from  the  processed  cine  film),  the  focal  length  cf 
the  camera/projector  system  was  calculated.  Estimates  of  the  image 
distortion  were  made  by  filming  a  grid  of  known  dimensions  and  measuring 
the  distortion  on  the  projected  image. 

After  filming  the  calibration  targets,  the  subject  was  filmed 
walking,  with  the  accelerometer  body  mount  in  place,  by  the  cine  cameras 
running  synchronously  at  50  frames/second.  Three  walking  tests  were 
performed  in  which  cine  filming  and  accelerometer  data  recording  were 
accomplished  simultaneously.  The  cine  films  were  developed  and  then 
projected  through  an  analyzing  projector  onto  a  digitizing  table.  One 
frame  of  cine  film,  being  projected,  is  shown  in  Figure  4-21.  The 
necessary  camera/projector  system  parameters  were  determined  by  digitizing 
the  projected  calibration  targets  located  on  the  first  few  frames  of  the 
cine  film.  The  projected  body  mount  marker  coordinates  were  then  digitized 
for  each  time  interval  during  one  step  cycle.  Using  computer  analysis,  the 
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three  dimensional  coordinates  of  the  body  mount  markers,  corrected  for 
distortion,  were  calculated  for  one  step  cycle  from  each  of  the  three 
walking  tests. 

As  it  was  physically  impossible  to  place  a  skin  marker  at  the  origin 
of  the  accelerometer  body  mount,  markers  were  located  8  cm  above  and  8  cm 
below  the  origin.  After  obtaining  the  coordinates  of  these  markers  from 
the  cine  film  analysis  programs,  the  origin  location  was  determined  by 
computing  the  midpoint  location  between  the  two  markers.  The  three 
dimensional  location  of  this  midpoint,  calculated  using  cinephotography , 
could  then  be  compared  to  the  location  of  the  origin  of  the  body  mount, 
calculated  using  the  accelerometer  method.  Because  the  accelerometer 
method  computed  relative  displacements  and  the  cinephotography  method 
computed  absolute(in  terms  of  its  fixed  reference  system)  displacements , 
the  cinephotography  coordinates  were  modified  to  yield  relative 
displacements.  This  was  accomplished  by  subtracting  a  constant  offset  from 
the  _3  axis  data,  representing  the  height  above  the  floor,  and  a  ramp 
function  from  the  2  axis  data,  representing  the  distance  walked  in  the 
plane  of  progression. 

A  graphical  comparison  of  the  cinephotography  and  accelerometer 
displacement  data  for  one  walking  test  is  shown  in  Figure  4-12.  The 
results  for  the  other  two  walking  tests  are  contained  in  Appendix  H.  The 
mean  absolute  dif f erences ( in  mm)  between  the  two  methods  for  the  three 
step  cycles  analyzed  were: 

Walk  1  Walk  2  Walk  3 


Axis 

1 (right  hand  direction) 

13.4 

8.2 

9.6 

Axis 

2 ( progression  direction) 

18.0 

9.0 

18.4 

Axis 

3(vertical  direction) 

6.8 

7.2 

8.1 

From  this  test  one  could  only  conclude  that  the  two  methods  produced 
comparable  results  for  translational  displacement  as  no  precise  accuracy 
was  available  for  either  method. 

In  the  following  chapter  the  results  of  the  walking  tests,  using  the 
accelerometer  measurement  system  developed  in  this  study,  conducted  on 
male  and  female  subjects  will  be  presented. 
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CHAPTER  5 

EXPERIMENTAL  RESULTS 


5.1  Introduction 

5.2  Method  of  Presenting  the  Experimental  Results 

5.3  Rotational  Results 


5.3.1  Pelvic  Rotation 

5.3.2  Pelvic  Rotation 

5.3.3  Pelvic  Rotation 
5. 3. A  Pelvic  Rotation 


Results:  Normal  Females 
Results:  Normal  Males 
Results:  Normal  Females  in  High  Heels 
Results:  Normal  Males  with  Back  Load 


5. A  Translational  Results 


5.A.1 

Pelvic 

Translation 

Results: 

Normal 

5. A. 2 

Pelvic 

Translation 

Results: 

Normal 

5. A. 3 

Pelvic 

Translation 

Results : 

Normal 

5. A. A 

Pelvic 

Translation 

Results : 

Normal 

5. 1  Introduction 

The  experimental  results  obtained  by  measuring  and  processing  data 
using  the  procedures  outlined  in  the  previous  chapters  are  presented  in 
this  chapter.  A  discussion  of  the  method  used  to  present  the  results  is 
contained  in  the  first  section.  The  remaining  sections  contain  the 
rotational  and  translational  results  obtained  for  each  of  the  walking 
tests  conducted  in  this  study. 


-Central  3  Step  Cycles 


The  experimental  results  obtained  during  this  study  were  presented  in 
graphical  form  to  permit  visual  observation  and  interpretation.  The 
results  have  been  limited  to  the  central  three  step  cycles  from  each  of 
the  walking  tests.  The  subjects  typically  completed  six  to  seven  step 
cycles  during  one  walking  test;  the  first  and  last  few  step  cycles  were 
not  included  since  the  subjects  began  and  ended  each  walking  test  in  a 
stationary  position.  Only  the  central  cycles  of  the  walking  test  were 
considered  representative  of  the  normal  walking  pattern  of  the  subject.  A 
typical  set  of  results  for  the  complete  walking  test,  with  the  central 
three  walking  cycles  analyzed  marked  by  vertical  lines,  is  shown  in  Figure 
5-1. 

The  three  central  step  cycles  were  selected  for  analysis  using 
computer  program  SCNPOS.  This  program  scanned  the  vertical  pelvic  position 
data  for  minimum  points  and  displayed  them  on  the  terminal  screen.  The 
time  at  which  the  minimums  occurred  and  the  data  storage  locations  were 
also  displayed.  The  operator  selected  the  data  storage  locations  for  the 
beginning  and  end  of  the  central  three  cycles  and  then,  using  program 
PL0T1T  described  in  chapter  4(p.  99),  displayed  the  position  data  on  the 
terminal  screen.  The  plot  shown  in  Figure  5-1,  without  the  vertical  lines 
and  heel  strike  labels,  is  typical  of  the  display  generated  by  PLOTIT. 

When  the  locations  of  the  three  cycles  to  be  analyzed  had  been  visually 
verified,  the  operator  recorded  the  first  and  last  data  storage  locations. 
He  also  insured  that  the  first  and  last  data  points  were  left  heel  strikes 
by  observing  the  right/left  position  of  the  pelvis,  designated  by  abscissa 
label  POS^ .  When  the  left  heel  strikes  the  ground  the  pelvis  should  be 
moving  to  the  left  side(i.e.  going  negative  in  the  plot). 


[< -  TOTAL  LEFT  STEP  CYCLE  - >j 

Left  Heel  Strike  Left  Toe  Off  Left  Heel  Strike 


Left  Stance 

Left  Swing 

_ i 

Right  Swing 
— 

Right  Stance 

Right  Toe  Off  Right  Heel  Strike  Right  Toe  Off 


0  11  50  61  100 

Percent  of  Left  Step  Cycle 

Figure  5-2.  The  Left  Step  Cycle. 


P 


deg) 


0  50  100  150  200  250  M 

%  OF  STEP  CYCLE  (FOR  3  STEPS) 


Figure  5-3.  Sample  Plot  from  the  Results  Sections 
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One  left  step  cycle  was  defined,  in  this  study,  as  the  cycle 
beginning  and  ending  with  left  heel  strike  and  is  shown  in  Figure  5-2.  The 
step  cycle  consists  of  a  stance  phase,  when  the  left  foot  is  in  contact 
with  the  ground,  and  a  swing  phase,  when  the  left  foot  is  in  the  air.  The 
stance  phase  normally  amounts  to  61%  of  the  cycle  and  the  swing  phase  39%, 
Murray,  et . al. ( 1966) .  The  right  heel  normally  strikes  the  ground  at  50%  of 
the  cycle  and  the  double  support  phase,  when  both  feet  are  in  contact  with 
the  ground,  ends  at  61%  of  the  cycle,  when  left  toe  off  occurs. 

Each  subject  chose  their  own  walking  speed  and  therefore  the  amount 
of  time  for  one  step  cycle  was  different  for  each  subject,  from  0.85  to 
1.20  seconds.  To  reduce  all  data  to  the  same  scale,  for  comparison 
purposes,  the  ordinate  scale  was  converted  from  time  to  percent  of  the 
left  step  cycle.  This  was  accomplished  by  using  program  ST0RE3  which 
converted  the  data  recorded  for  all  seven  subjects  in  one  test  to  the  same 
number  of  data  points  on  a  zero  to  300%  ordinate  scale.  This  scale 
represented  the  three  central  step  cycles  stored  for  analysis  where  the 
appropriate  step  cycle  event  percentage  carried  on  through  three  cycles, 
i.e.  right  heel  strike  occurred  at  approximately  50%,  150%  and  250%. 

Each  plot,  presented  in  the  results  sections,  consists  of  one  heavy 
line,  representing  the  mean  of  the  values  computed  for  the  seven  subjects 
in  one  test,  and  two  dashed  lines,  representing  the  maximum  and  minimum 
values.  A  sample  of  one  plot  from  the  results  section  is  shown  in  Figure 
5-3.  All  three  lines  together  represent  the  mean  and  extreme  values 
computed  at  one  position  in  the  step  cycle  for  the  seven  subjects 
participating  in  one  test.  Therefore,  the  individual  plots  of  the  measured 
parameters  for  each  of  the  seven  subjects  lie  within  the  dashed  lines. 

This  method  of  presenting  the  results  was  chosen  to  reduce  the  volume  of 
graphical  data  and  yet  retain  the  essential  information. 


The  mean  values,  shown  in  the  plots,  should  not  be  considered  to 
represent  a  "normal"  value  for  the  tests  conducted  in  this  study.  The  word 
normal  can  be  ambiguous  when  used  to  describe  kinematic  parameters  since 
kinematic  functions  vary  widely  from  individual  to  individual.  Unless  a 
statistical  study  of  a  large,  random  population  of  normal  subjects  is 
made,  the  strict  mathematical  definitions  of  mean  and  normal  do  not  apply. 
The  word  normal,  when  used  in  this  study,  does  not  imply  a  corresponding 
mathematical  precision,  but  is  intended  to  indicate  the  non-mathematical, 
subjective  use  of  the  word  normal,  that  is  a  typical  result  obtained  from 
a  healthy  subject.  Therefore,  a  normal  result  may  not  coincide  with  the 
mean  values  plotted,  but  would  be  expected  to  lie  within  the  maximum  and 
minimum  ranges;  deviations  from  the  mean  curve  should  no*-  be  classified  as 
abnormal. 

The  results  of  each  test  were  plotted  for  each  of  the  three 
coordinate  axis  directions.  The  coordinate  system  was  a  fixed  system  with 
the  axes  and  rotations  shown  in  Figure  5-4.  The  axis  direction  is 
indicated  in  the  plots  as  a  subscript  on  the  abscissa  label.  The 
rotational  and  translational  motions  were  described  by  the  following: 

(1)  Sagittal  plane  rotation  was  about  axis  a  positive 

rotation  occurred  when  the  anterior  section  of  the  pelvis 

moved  up-.-ard. 

(2)  Coronal  plane  rotation  was  about  axis  2^;  a  positive  rotation 

occurred  when  the  right  side  of  the  pelvis  moved  downward. 

(3)  Transverse  plane  rotation  was  about  axis  a  positive 

rotation  occurred  when  the  right  side  of  the  pelvis  moved 

anteriorly. 

(4)  Right/left  translation  was  along  axis  J_;  a  positive  motion 

occurred  to  the  right. 

(5)  Anterior/posterior  translation  was  along  axis  a  positive 

motion  occurred  anteriorly. 


(6)  Vertical  translation  was  along  axis  a  positive  motion 
occurred  upward. 
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In  addition  to  the  plots,  a  table  of  the  cadence  and  average  peak  to 
peak  value  of  each  parameter  is  presented.  This  peak  to  peak  value  was 
the  average  of  the  peak  to  peak  values  which  occurred  in  the  three  central 
step  cycles  for  each  subject.  A  mean  peak  to  peak  value  for  the  seven 
subjects  is  also  shown  in  each  table. 

The  rotational  and  translational  results  of  the  data  measured  and 
processed  using  the  methods  outlined  in  this  section  and  chapter  4  are 
contained  in  the  following  sections. 
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5 . 3  Rotational  Results  i 

j 

The  following  sections  contain  the  experimental  results  of  the 
angular  velocity  and  angular  position  of  the  pelvis  measured  in  this  ■ 

study.  A  brief  description  of  the  walking  test  precedes  the  graphical 
results  presented  in  each  of  the  following  sections. 


‘.3.1  Pelvic  Rotation  Results:  Normal  Females 

The  plots  and  table  contained  in  this  section  show  the  rotational 
results  for  tests  of  female  subjects  walking  barefoot  and  in  low  heeled 
shoes.  The  angular  velocity,^  ,  and  the  rotation  angles,  <t>,8  and  are 
shown  for  each  of  the  three  coordinate  axes. 


X  OF  STEP  CYCLE  (FOR  3  STEPS) 


Pelvic  Rotation  Angles  (deg)  for  Female  Subject 
Walking  in  Low  Heeled  Shoes. 


Table  5-1.  Female  Subject  Peak  to  Peak  Rotational  Parameters 
Averaged  for  3  Step  Cycles  per  Subject. 
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5.3.2  Pelvic  Rotation  Results;  Normal  Males 

The  plots  and  table  contained  in  this  section  show  the  rotational 
results  for  the  tests  of  male  subjects  walking  barefoot  and  in  shoes.  The 
angular  velocity ,  and  the  rotation  angles,  4* ,  ®  and  g  ,  are  shown  for 
each  of  the  three  coordinate  axes. 


<D 


P 


Figure  5-10.  Pelvic  Rotation  Angles  (deg)  for  Male  Subjects 

Walking  Barefoot. 


Table  5-II.  Male  Subject  Peak  to  Peak  Rotational  Parameters 
Averaged  for  3  Step  Cycles  per  Subject. 


123 


▲ 


5.3.3  Pelvic  Rotation  Results:  Normal  Females  in  High  Heels 

The  plots  and  table  contained  in  this  section  show  the  rotational 
results  for  the  walking  test  of  female  subjects  wearing  high  heeled  shoes. 
The  angular  velocity, w  ,  and  the  rotation  angles,  4>  ,  6  and  6,  are  shown 
for  each  of  the  three  coordinate  axes. 
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5.3.4  Pelvic  Rotation  Results:  Normal  Males  with  Back  Load 

The  plots  and  table  contained  in  this  section  show  the  rotational 
results  for  the  walking  test  of  male  subjects  wearing  shoes  and  carrying  a 
13.6  Kg  load  on  their  back.  The  angular  velocity, ,  and  rotation 
angles,  <fr ,  6  and  6,  are  shown  for  each  of  the  three  coordinate  axes. 
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5 . 4  Translational  Results 

The  following  sections  contain  the  experimental  results  of  the 
acceleration,  velocity  and  position  of  the  pelvis  measured  in  this  study. 
A  brief  description  of  the  walking  test  precedes  the  graphical  results 
presented  in  each  of  the  following  sections. 
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The  plots  and  table  contained  in  this  section  show  the  translation 
results  for  tests  of  female  subjects  walking  barefoot  and  in  low  heeled 
shoes.  The  acceleration,  ACC,  velocity,  VEL,  and  position,  POS ,  of  the 
pelvis  are  shown  for  each  of  the  three  coordinate  axes. 


1.096 


Figure  5-17.  Pelvic  Acceleration  (g's)  for  Female  Subjects 

Walking  Barefoot. 


X  OF  STEP  CYCLE  (FOR  3  STEPS) 

Figure  5-19.  Pelvic  Position  (cm)  for  Female  Subjects 

Walking  Barefoot. 


X  OF  STEP  CYCLE  (FOR  3  STEPS) 


Figure  5-21.  Pelvic  Velocity  (cm/sec)  for  Female  Subjects 

Walking  in  Low  Heeled  Shoes. 


Subject : 


Table  5-V.  Female  Subject  Peak  to  Peak  Translational  Parameters 
Averaged  for  3  Step  Cycles  per  Subject 
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5.4.2  Pelvic  Translation  Results:  Normal  Hales 

The  plots  and  table  contained  in  this  section  show  the  translation 
results  for  tests  of  male  subjects  walking  barefoot  and  in  shoes.  The 
acceleration,  ACC,  velocity,  VEL,  and  position,  POS,  of  the  pelvis  are 
shown  for  each  of  the  three  coordinate  axes. 


.8 


X  OF  STEP  CYCLE  (FOR  3  STEPS) 
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Pelvic  Acceleration  (g's)  for  Male  Subjects 
Walking  in  Shoes. 
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Table  5-VI.  Male  Subject  Peak  to  Peak  Translational  Parameters 
Averaged  for  3  Step  Cycles  per  Subject 
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5. A. 3  Pelvic  Translation  Results:  Normal  Females  in  High  Heels 

The  plots  and  table  contained  in  this  section  show  the  translation 
results  for  the  walking  test  of  female  subjects  wearing  high  heeled  shoes. 
The  acceleration,  ACC,  velocity,  VEL,  and  position,  POS,  of  the  pelvis  are 
shown  for  each  of  the  three  coordinate  axes. 


%  OF  STEP  CYCLE  (FOR  3  STEPS) 


Pelvic  Acceleration  (g’s)  for  Female  Subject 
Walking  in  High  Heeled  Shoes. 


X  OF  STEP  CYCLE  (FOR  3  STEPS) 


Pelvic  Position  (cm)  for  Female  SuFu^t 
Walking  in  High  Heeled  Shoes. 


Averaged  for  3  Step  Cycles  per  Subject. 


5.4.4  Pelvic  Translation  Results:  Normal  Males  with  Back  Load 


The  plots  and  table  contained  in  this  section  show  the  translation 
results  for  the  walking  test  of  male  subjects  wearing  shoes  and  carrying 
13.6  Kg  load  on  their  back.  The  acceleration,  ACC,  velocity,  VEL,  and 
position,  POS ,  of  the  pelvis  are  shown  for  each  of  the  three  coordinate 
axes . 

A  discussion  of  the  results  presented  in  this  chapter  and  a 
comparison  of  the  results  of  this  study  with  those  reported  by  other 
researchers  is  contained  in  the  following  chapter. 


33.3 


Figure  5-33.  Pelvic  Velocity  (cm/sec)  for  Male  Subjects 
Walking  in  Shoes  with  a  Back  Load. 


%  OF  STEP  CYCLE  (FOR  3  STEPS) 

Pelvic  Position  (cm)  for  Male  Subject 
Walking  in  Shoes  with  a  Back  Load. 


Chapter  6 


1  3D 


DISCUSSION  OF  RESULTS 

6.1  Introduction 

6.2  Comparison  of  Results  with  Previous  Studies 

6.3  Effectiveness  in  Detecting  Changes  in  Pelvic  Motion 

6.4  Observations  from  Visual  Interpretation  of  the  Results 


6 . 1  Introduction 

A  discussion  of  the  results,  limited  to  the  scope  of  this  study,  is 
presented  in  this  chapter.  The  measurement  results  obtained  using  the 
accelerometer  method  are  compared  to  results  obtained  in  the  studies  by 
previous  researchers  which  were  discussed  in  chapter  1.  The  second 
section  contains  an  analysis  of  the  effectiveness  of  the  accelerometer 
method  in  detecting  changes  in  pelvic  motion  using  a  nonparametric 
statistical  method.  In  the  final  section,  some  general  observations  from 
visual  interpretation  of  the  plots  contained  in  chapter  5  are  presented. 


Number 

of 

Subj  ects 

Transverse 

Plane 

Rotation 

Sagittal 

Plane 

Rotation 

Previous  Studies  (female): 

Murray,  et.al.  (1970) 
Low-Heels 

30 

9.6° 

(2o  +.8°) 

5.0° 

(2a  ±.6°) 

Murray,  et.al.  (1970) 
High-Heels 

30 

10.0° 

(2a  ± .  7°) 

4.7° 

(2a  ± .  7°) 

Previous  Studies  (male) : 

Levens,  et.al.  (1948) 

12 

7.  7° 

Murray,  et.al.  (1964) 

60 

10°  +  3.5° 

6° 

Murray,  et.al.  (1966) 

30 

11.5°  +_  3.8° 

6° 

Klopsteg  6  Wilson  (1968) 

12 

Murray,  et.al.  (1969) 

64 

9.0°  +4.0° 

4.0°  +  0.3° 

Lamoreux  (1971) 

1 

10.4°  +  2.0° 

6.9°  +  3.0° 

This  Study: 

Female  (barefoot) 

7 

10.0° 

(20.3/4.1) 

4.8° 

(8. 5/1. 8) 

Female  (low  heel  shoes) 

7 

9.0° 

(18.3/5.1) 

4.4° 

(7. 6/2.0) 

Female  (high  heel  shoes) 

7 

9.5° 

(15.2/4.2) 

5.3° 

(8. 7/1. 9) 

Male  (barefoot) 

7 

6.6° 

(14.8/5.  7) 

3.6° 

(5. 3/2.6) 

Male  (shoes) 

7 

6.7° 

(14.5/2.7) 

3.3° 

(4. 9/2. 2) 

(Maximum/Minimum) 


Table  6-1.  Pelvic  Rotation  Angles  for  Previous  Studies 

and  This  Study. 


Coronal 

Plane 

Rotation 


8° 


6.1°  +  1.0° 


12.7° 

(18.8/8.6) 

11.0° 

(17.3/6.5) 

13.0° 

(17.6/9.9) 

7.2° 

(10.9/4.3) 

7.3° 

(10.9/4.3) 
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6. 2  Comparison  of  Results  with  Previous  Studies 

In  this  section  the  pelvic  rotation  angles  and  displacements  reported 
in  previous  studies  will  be  compared  with  the  results  obtained  in  this 
study.  Since  no  studies  measuring  angular  velocity,  translational 
acceleration  and  velocity  and  male  subjects  carrying  back  loads  were 
found,  comparisons  cannot  be  made  for  these  measurements.  The  purpose  of 
the  comparisons  made  in  this  section  was  to  establish  that  the 
accelerometer  method  developed  in  this  study  produced  results  comparable 
to  other  studies.  The  number  of  subjects  tested  was  too  few  to  allow  more 
than  a  subjective  comparison.  Therefore,  a  determination  of  the  system 
accuracy  and  the  establishment  of  normal  values  for  the  subjects  was  not 
accomplished. 

The  pelvic  rotation  angles  reported  in  previous  studies  and  those 
measured  in  this  study  are  shown  in  Table  6-1.  In  general,  these  rotation 
angles  compare  very  favorably  and  support  the  validity  of  the  measurements 
obtained  using  the  accelerometer  method  developed  in  this  study.  A  careful 
examination  of  the  data  in  Table  6-1  reveals  some  significant 
relationships. 

The  only  previous  study  of  pelvic  motion  of  female  subjects  was 
reported  by  Murray,  et.al.  in  1970.  The  transverse  and  sagittal  plane 
pelvic  rotations  were  measured  for  level  walking  in  both  low  and  high 

O 

heeled  shoes.  The  mean  transverse  pelvic  rotation  measured  was  9.6  in  low 

O 

heels  and  10. U  in  high  heels;  the  same  rotations  measured  in  this  study 

o  o 

with  accelerometers  were  9.0  in  low  heels  and  9.5  in  high  heels.  The 

o 

mean  sagittal  pelvic  rotations  reported  by  Murray,  et.al.  were  5.0  in  low 

O 

heels  and  4.7  in  high  heels  compared  to  the  accelerometer  results  in  this 

O  O 

study  of  4.4  in  low  heels  and  5.3  in  high  heels.  The  results  obtained 
in  this  study  showed  very  good  agreement  with  the  results  reported  by 
Murray,  et.al.  lor  female  subjects. 


The  results  lor  male  subject  studies  are  also  shown  in  Table  6-1.  The 
male  subjects  were  tested  wearing  shoes  in  all  the  previous  studies.  In 
this  study,  the  mean  transverse  pelvic  rotation  was  found  to  be  6.6°  for 
males  walking  barefoot  and  6.7°  for  males  wearing  shoes.  Levens, 
et.al. (1948)  reported  this  rotation  to  be  7.7°.  The  three  studies  by 
Murray,  et.al.  and  the  study  of  one  subject  by  Lamoreux  reported  values 
from  9.0°+4.0°  to  11.5°+3.8°.  The  mean  values  obtained  in  this  study  were 
smaller,  but  are  still  within  the  range  of  values  reported  in  the  previous 
studies.  In  addition,  Murray,  et.al. (1964)  reported  a  mean  value  of  6.4° 
for  male  subjects  of  medium  height;  five  of  the  seven  subjects  tested  with 
the  accelerometer  method  in  this  study  were  of  medium  height.  This 
difference  in  height,  coupled  with  the  small  number  of  subjects  tested, 
may  account  for  the  differences.  If  the  range  of  measured  values  are 
compared,  2.7°  to  14.8°  for  this  study  and  5.0°  to  15.3°  for  previous 
studies,  then  the  accelerometer  method  developed  in  this  study  clearly 
produced  results  comparable  with  those  from  previous  studies. 

When  the  sagittal  pelvic  rotations  are  compared,  the  results  again 
compare  favorably.  Murray,  et.al.  report  in  their  early  studies  a  value  of 
6°,  but  in  their  latest  study(1969)  a  value  of  4.0°+0.3°  was  reported. 
Lamoreux  reported,  for  the  one  subject  he  tested,  a  sagittal  rotation  of 
6.9°+3.0°.  For  this  study,  mean  values  of  3.6°  for  barefoot  and  3.3°  for 
walking  in  shoes  were  measured;  the  range  of  measurements  was  from  2.2°  to 
5.3°  . 

Coronal  plane  pelvic  rotation  results  from  the  University  of 
California  at  Berkeley  study  were  reported  in  Klopsteg  and  Wilson(1968)  as 
having  a  mean  value  of  8°.  Lamoreux  reported  a  value  of  6.1°+1.0°  in  his 
1971  study.  The  mean  value  measured  with  the  accelerometer  method  in  this 
study  was  7.2°  for  barefoot  and  7.3°  for  walking  in  shoes  with  a  range 
from  4.3°  to  10.9°.  These  results  show  very  good  agreement. 


Number 

of 

Right /Left 

Anterior/ 

Posterior 

Vertical 

Previous  Studies: 

Subj  ects 

Displacement 

Displacement 

Displacement 

Lamoreux  (1971) 

1 

3.4  cm 

4 . 0  cm 

4 . 2  cm 

Waters,  et.al. 

(1973)  5 

2.6  cm 

4.5  cm 

4.2  cm 

This  Study: 

Male  (barefoot) 

7 

5.2  cm 
(4. 1/2. 5) 

3.8  cm 
(5. 9/2. 2) 

5.1  cm 
(7.1/316) 

Male  (shoes) 

7 

3.1  cm 
(3. 7/2. 7) 

4.8  cm 
(6.6/5. 1) 

5.5  cm 
(7. 1/4. 2) 

(Maximum/Minimum) 


Table  6-II.  Male  Subject  Pelvic  Displacements  for 
Previous  Studies  and  This  Study. 


Only  two  previous  studies  of  pelvic  position  have  been  reported, 
Lanoreux ( 19 7 1 )  and  Waters,  et . al .  (1 973 ) .  Both  of  these  studies  were 
accomplished  with  the  subjects  walking  on  a  treadmill  in  contrast  to  the 
free  level  walking  used  in  this  study.  The  results  of  these  studies  and 
the  present  study  are  shown  in  Table  6-11.  Lamoreux  and  Waters,  et.al. 
reported  right/left  pelvic  displacements  of  3.4  and  2.6  cm  while  the 
results  from  this  study  were  3.2  cm(barefoot)  and  3.1  cm(shoes).  These 
previou  ■  studies  found  the  anterior /posterior  displacement  to  be  4.0  and 
4.5  cm  compared  to  3.8  cm(barefoot)  and  4.8  cm(shoes)  measured  in  this 
study.  Both  Lamoreux  and  Waters,  et.al.  reported  the  vertical  pelvic 
displacement  to  be  4.2  cm;  values  of  5.1  cm(barefoot)  and  5.5  cm(shoes) 
were  measured  with  the  accelerometer  method  of  this  study.  The  agreement 
between  these  three  studies  is  very  good  despite  the  limited  number  of 
subjects  tested. 

Although  only  a  small  number  of  subjects  were  tested  with  the 
accelerometer  method  developed  in  this  study,  and  only  a  limited  number  cf 
previous  studies  of  pelvic  motion  have  been  reported,  the  results  obtained 
with  the  accelerometer  method  are  comparable  to  those  obtained  using  other 
measurement  methods. 
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b . 3  Ef f ect ivcness  in  Detecting  Changes  in  Pelvic  Motion 

The  limited  number  of  subjects  tested  precluded  the  use  of  the 
standard  parametric  statistical  tests  to  evaluate  the  results.  The 
following  conditions  must  be  met  to  apply  parametric  statistical  methods 
of  analysis: 

(1)  The  measurements  must  be  independent. 

(2)  The  measurements  must  be  drawn  from  normally  distributed 

populations . 

(3)  These  populations  must  have  the  same  variance. 

When  using  parametric  statistical  methods,  it  is  often  assumed  that  if  a 

sufficiently  large  number  of  subjects  are  tested,  then  conditions  (2)  and 

(3)  are  true.  Seven  subjects  is  not  a  sufficiently  large  enough  number  to 

make  this  assumption.  Therefore,  a  nonparametric  statistical  test  was 

used  to  determine  the  effectiveness  of  the  accelerometer  method  in 

detecting  changes  in  pelvic  motion. 

The  use  of  any  statistical  test  requires  a  statement  of  the  null 

hypothesis  and  the  selection  of  a  test  and  level  of  significance.  The 

null  hypothesis  is  normally  formulated  for  the  purpose  of  being  rejected. 

The  null  hypothesis  for  this  study  was: 

The  accelerometer  method  developed  in  this  study 
cannot  detect  changes  in  pelvic  motion  parameters  between: 

(1)  female  subjects  walking  barefoot,  in  low  heeled  shoes, 

in  high  heeled  slices 

(2)  male  subjects  walking  barefoot,  in  shoes,  carrying  a 

load  on  their  back. 

This  hypothesis  implied  that  the  measured  values  of  the  pelvic  motion 
parameters  would  not  be  significantly  different  between  the  same  subject 
performing  level  walking  with  different  footwear  or  while  carrying  a  load 


on  the  back. 


Acceleration  Velocity  Position 
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The  randomization  test  for  matched  pairs  was  used  in  this  study  to 
test  the  null  hypothesis.  The  exact  probability  associated  with  the 
occurrence  of  the  measured  results  can  be  calculated  with  a  randomization 
test.  The  only  requirements  which  must  be  met  are:  the  measurements  must 
be  independent  and  have  numerical  meaning  in  at  least  an  interval  sense. 

The  measurements  made  in  this  study  fulfilled  these  requirements.  The 
randomization  test  uses  all  the  information  in  the  measurement  data  and  is 
100  percent  efficient  on  data  which  may  be  analyzed  using  the  standard 
parametric  t  test.  Therefore,  the  randomization  test  has  the  same  power  to 
reject  the  null  hypothesis  as  the  t  test  without  assuming  a  normally 
distributed  population  with  the  same  variance.  An  excellent  description  of 
the  specific  details  on  applying  the  randomization  test  for  matched  pairs 
is  contained  in  Siegel(1956)  and  this  textbook  should  be  consulted  for  the 
specific  details  of  the  method. 

The  results  of  applying  the  randomization  test  to  the  measured 
results  obtained  in  this  study  are  shown  in  Table  6-111.  The  table 
contains  the  calculated  probability  of  occurrence  for  each  of  the  measured 
parameters  under  the  hypotheses  stated.  These  hypotheses  were  formulated 
as  alternatives  to  the  null  hypothesis  previously  stated.  Under  the  null 
hypothesis,  no  significant  differences  between  measurements  should  occur. 
Therefore,  the  tests  should  produce  no  probabilities  less  than  the  level 
of  significance. 

The  probabilities  below  a  level  of  significance  of  0.05  are 
underlined  in  Table  6-III.  In  17  cases,  at  a  level  of  significance  of 
0.U5,  a  significant  difference  between  the  measured  data  was  observed. 
Therefore,  the  null  hypothesis  could  have  been  rejected  with  a  probability 
of  0.05  that  it  was  falsely  rejected.  If  the  probabilities  are  examined  for 
values  below  a  level  of  significance  of  0.01,  five  parameters  show  a 
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significant  difference, 
confidence  level  of  99 
Based  on  this  stat 
developed  in  this  study 
motion. 


Therefore,  the  null  hypothesis  was 
percent . 

istical  analysis,  the  accelerometer 
was  effective  in  detecting  changes 


rejected  with  a 

method 
in  pelvic 
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b . 4  Observations  from  Visual  Interpretation  of  the  Results 

In  addition  to  calculating  numerical  results  from  the  measured  data, 
there  are  some  interesting  observations  which  can  be  made  by  visual 
interpretation  of  the  plots.  By  observing  the  differences  in  general  curve 
shape  between  the  mean  and  extreme  values,  it  is  possible  to  assess 
subjectively  the  variation  between  individuals  for  a  particular  pelvic 
motion  parameter.  The  most  striking  example  of  this  was  the  difference  in 
the  sagittal  plane  rotation  angle(0)  for  female  subjects  walking  barefoot 
and  in  low  heeled  shoes.  Examining  the  plot  of  theta  in  Figure  5-8,  it  was 
apparent  that  the  mean,  maximum  and  minimum  curves  all  had  the  same  basic 
shape.  Therefore,  the  seven  female  subjects  walked  with  the  same  sagittal 
plane  motion  and  the  major  variation  between  individual  subjects  was  the 
amplitude,  or  total  degrees  of  rotation.  Observing  the  same  parameter  in 
Figure  5-6,  it  was  obvious  that  the  shape  of  the  th^ee  curves  was  not  the 
same.  Therefore,  not  only  did  the  amplitude  vary  from  individual  to 
individual,  but  the  manner  in  which  individual  female  subjects  rotated 
their  pelvis  in  the  sagittal  plane  varied.  From  these  observations,  one 
may  conclude  that  female  subjects  exhibit  greater  individuality  in 
sagittal  plane  pelvic  rotation  walking  barefoot  than  they  do  in  low  heeled 
shoes . 

Extending  this  method  of  visual  interpretation,  the  following 
observations  were  made  concerning  the  pelvic  motion  parameters  measured  in 
this  study: 

(1)  If  variation  between  individual  subjects  was  observed  in  the 

rotation  angles,  this  variation  would  be  greater  in  the 
corresponding  angular  velocity. 

(2)  If  variation  between  individual  subjects  was  observed  in 

pelvic  position,  this  variation  would  be  greater  in  the 
corresponding  velocity,  and  even  greater  in  the 
corresponding  acceleration. 


1  3e 

These  observations,  although  based  on  a  limited  number  of  subjects, 
suggest  that  a  researcher,  or  clinician,  should  use  caution  in  selecting  a 
particular  parameter  of  pelvic  motion  for  analysis.  Similar  caution  should 
be  exercised  in  attempting  to  analyze  the  results  of  measuring  a 
particular  parameter.  For  example,  if  the  purpose  of  testing  a  subject  was 
to  determine  if  the  subjects  pelvic  motion  was  normal,  then  a  comparison 
of  pelvic  position  would  be  more  suitable  than  a  comparison  of  pelvic 
angular  velocity.  In  testing  for  "normality",  a  parameter  which  showed 
very  little  difference  between  subjects  should  be  chosen.  However,  if  the 
purpose  of  testing  was  to  determine  if  a  change  in  an  individuals  pelvic 
motion  occurred  due  to  some  modification  to  the  lower  limb,  such  as 
applying  an  orthosis,  it  would  be  more  appropriate  to  select  a  parameter 
such  as  angular  velocity  or  translational  acceleration.  These  parameters 
are  more  individualized  and  therefore  small  variations  in  pelvic  motion 
would  be  more  readily  discernible. 


CHAPTER  7 
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CONCLUSIONS  AND  RECOMMENDATION S 

7.1  Introduction 

7.2  Conclusions 

7.3  Recommendations 


7 . 1  Introduction 

Studies  of  human  locomotion  have  been  undertaken  for  various  reasons. 
The  earliest  studies  were  probably  begun  with  a  desire  to  acquire  new 
knowledge  and  a  curiosity  of  the  unknown.  Most  of  the  modern  studies  have 
been  related  to  improving  our  understanding  of  normal  walking  and  the 
problems  associated  with  pathological  gait.  Any  attempt  to  restore  normal 
functioning  when  the  locomotor  system  is  damaged  must  be  based  on  accurate 
knowledge  of  the  functions  of  the  parts  of  the  body  involved.  This 
includes  surgical  procedures  to  repair,  or  replace,  the  damaged  bones, 
joints  or  muscles  and  physiotherapy  to  improve  the  functioning  of  impaired 
lower  limbs.  When  irreparable  damage  occurs,  the  normal  locomotor  system 
must  be  supported  externally  or  replaced.  The  design  of  orthotic  and 
prosthetic  devices  should  rely  on  sound  mechanical  principles  and  be  aimed 
at  restoring  near  normal  functioning  of  the  locomotor  system.  Any 
improvement  in  surgical  procedures,  physiotherapy  techniques,  orthoses  or 
prostheses  depends  on  better  knowledge  of  how  the  locomotor  system 
functions. 

The  vast  majority  of  the  studies  of  human  locomotion  have  focused  on 
defining  the  motion  of  the  lower  limbs.  The  study  begun  in  1947  at  the 
University  of  California  at  Berkeley  was  very  comprehensive  and  clearly 
identified  the  overall  motion  of  the  lower  limbs  during  walking.  This 
study  also  began  the  development  of  modern  techniques  to  evaluate  the 
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design  and  function  of  orthoses  and  prostheses.  Other  studies  have 
further  refined  and  added  to  our  knowledge  of  the  positions  of  the  lower 
limbs  during  various  locomotion  activities.  Although  the  literature 
contains  many  references  to  the  importance  of  understanding  the  movement 
of  the  pelvis  in  both  normal  and  pathological  gait,  there  have  been  very 
few  studies  devoted  to  this  end. 

In  this  final  chapter,  the  conclusions  reached  during  this  study  of 
the  kinematics  of  the  pelvis  and  some  recommendations  for  the  future  use 
of  the  accelerometer  measurement  system  are  presented. 


7.2  Conclusions 


In  all  Che  previous  studies  reporting  on  pelvic  motion,  the  pelvic 
parameters  were  measured  only  as  a  small  part  of  a  larger  study  of  lower 
limb  motion.  The  studies  by  Murray,  et.al.  discussed  in  chapters  1  and  5 
were  the  only  studies  of  pelvic  motion  conducted  on  a  large  number  of 
subjects.  However,  only  two  pelvic  motion  parameters  were  measured: 
pelvic  rotation  in  the  transverse  and  sagittal  planes.  Only  Lamoreux's 
study  measured  all  six  pelvic  motion  orientation  and  position  parameters 
and  his  values  were  based  on  repeated  tests  of  one  subject  walking  on  a 
treadmill.  As  a  result,  the  movement  of  the  pelvis  during  human  locomotion 
activities  has  been  defined  only  in  very  general  terms. 

This  study  was  undertaken  as  a  first  step  in  determining,  with 
greater  precision,  how  the  pelvis  moves  during  normal  and  pathological 
human  locomotion  activities.  The  purpose  was  to  develop  a  kinematic 
measurement  system  capable  of  measuring  the  three  dimensional  rotation  and 
translation  of  the  pelvis  during  walking.  The  system  also  had  to  be 
capable  of  detecting  changes  in  pelvic  motion  due  to  disorders  of  the 
lower  limbs.  A  planar  eight  accelerometer  kinematic  measurement  system  was 
developed  and  tested  which  fulfilled  the  purpose  of  this  study. 

The  accelerometer  measurement  system  was  tested  experimentally;  the 
test  results  were  reported  in  chapter  4.  The  system  was  also  tested  on 
male  and  female  subjects  during  level  walking  activities  and  a  compariscn 
of  the  walking  test  results  with  previous  studies  was  made  in  chapter  6. 
These  tests  established  that  the  accelerometer  measurement  system  produced 
results  very  comparable  to  those  obtained  using  different  measurement 
systems.  A  statistical  analysis,  also  reported  in  chapter  6,  clearly 
demonstrated  that  the  accelerometer  measurement  system  was  capable  of 


detecting  changes  in  pelvic  motion. 
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In  addition  to  measuring  the  orientation  and  position  of  the  pelvis 
in  three  dimensions,  the  accelerometer  method  developed  in  this  study  also 
measures  the  angular  velocity  and  translational  acceleration  and  velocity 
of  the  pelvis.  As  discussed  in  chapter  6,  these  parameters  appear  to  vary 
more  than  the  orientation  and  position  parameters  from  individual  to 
individual  and  would  provide  additional  information  on  pelvic  motion  which 
could  prove  particularly  useful  in  studies  of  pathological  gait.  From  the 
description  in  chapter  4,  the  experimental  method  of  calibrating  the 
system,  collecting  subject  data  and  processing  data  may  have  appeared 
complex  and  time  consuming.  However,  with  minimal  training  and  practice, 
a  researcher  should  be  able  to  complete  the  walking  tests  and  data 
processing  for  a  subject  within  one  hour. 

Some  recomnendat ions  for  the  future  use  of  the  accelerometer 
measurement  system  developed  in  this  study  will  be  presented  in  the  next 


section. 


143 


7 . 3  Recommendations 

In  this  section  three  general  recommendations  for  the  future  of  the 
accelerometer  measurement  system  developed  in  this  study  will  be 
discussed.  The  first  concerns  the  use  of  the  present  system,  the  second 
suggests  improvements  which  should  be  made  to  the  accelerometers  and  the 
third  proposes  some  additional  areas  of  kinematic  measurement  where  the 
method  developed  in  this  study  could  be  applied. 

The  pelvic  motion  measurement  system  developed  in  this  study  should 
be  used  in  a  clinical  research  environment,  such  as  the  Oxford  Orthopaedic 
Engineering  Centre.  This  environment  would  provide  the  opportunity  for 
collaborative  studies  with  orthopaedic  surgeons  on  disorders  of  the  lower 
limbs.  The  initial  studies  should  include  as  many  normal  subjects  as 
possible  to  provide  the  necessary  statistical  basis  for  establishing  the 
range  of  pelvic  motion  for  normal  healthy  subjects.  In  addition  to  studies 
of  orthopaedic  disorders,  the  system  could  also  be  used  to  evaluate 
orthotic  devices  applied  to  the  lower  limbs.  These  devices  include  braces 
and  other  mechanical  supports  for  the  lower  limbs  and  orthopaedic  shoes. 

By  measuring  the  pelvic  motion  of  a  subject  wearing  different  orthoses,  it 
would  be  possible  to  provide  quantitative  data  for  evaluating  the 
effectiveness  of  various  orthoses  designed  for  the  same  purpose. 

The  current  accelerometer  system  performed  very  well  and  provided 
satisfactory  results.  However,  there  were  problems  in  fabricating  and 
assembling  the  accelerometers.  The  silicon  beam  sensing  elements  are  very 
fragile  and  b  of  18  were  broken  during  assembly  in  spite  of  working  very 
carefully  under  a  microscope.  Another  problem  was  containing  the  silicon 
fluid  within  the  accelerometer  housing.  Silicon  is  a  well  known  release 
agent  and  is  contained  only  with  carefully  designed  seals.  The  method  of 
applying  a  silicon  compound  to  the  ends  of  the  accelerometer  housing  was 
not  the  most  effective  method  of  containing  the  fluid.  If  more 


Operating  range:  +  10  g's 

Sensitivity:  +_  2  mv/v/g  ^25% 

Cross  axis  sensitivity:  <-2%  FS 
Non-linearity  and  hysteresis:  <  1%  FS 
Resonant  frequency:  approximately  200  Hz 

Operating  temperature  range:  -40  to  +85  °C 
Nominal  resistance:  1000  ohms 

Resistance  matching:  <10% 

Operating  voltage:  10  volts  maximum 

Thermal  sensitivity  shift:  -0.2%/°C 

Thermal  zero  shift:  <0.005%  of  FS0/°C 
Damp ing :  0 . 5  -  1 . 0 

Weight:  3  grams 

Table  7-1.  AME  Modified  AE864C  Specifications 


Figure  7-1.  AME  Modified  AF.864C  Accelerometer  and  the 
Accelerometer  used  in  this  Study. 
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accelerometers  were  to  be  fabricated,  the  current  design  should  be 
modified  to  provide  adequate  mechanical  seals. 

During  this  study  there  has  been  correspondence  with  AME  of  Norway, 
the  manufacturers  of  the  silicon  beam  sensing  elements,  on  a  variety  of 
subjects.  In  a  letter  in  December  1977  the  production  manager  indicated 
the  company  was  considering  production  of  a  +10  g  accelerometer 
(previously  the  lowest  range  was  +75  g)  and  sample  quantities  would  be 
available  in  February  1978.  With  further  communication  on  this  subject 
they  agreed  to  supply  a  modified  version  of  the  AE864C  +75  g  accelerometer 
with  specifications  shown  in  Table  7-1.  In  May  1978  two  accelerometers 
were  received;  the  modified  AE864C  accelerometer  and  the  accelerometer 
used  in  this  study  are  shown  in  Figure  7-1. 

Limited  tests  of  the  sensitivity  and  thermal  zero  shift  of  the  two 
AE864C  accelerometers  were  conducted.  The  sensitivity  was  measured  at 
0.84  mV/V/g  compared  to  4.2  mV/V/g  for  the  accelerometer  developed  in  this 
study.  This  would  not  be  a  problem  as  the  gain  of  the  amplifiers  can  be 
increased  to  provide  signals  of  the  proper  voltage  level.  Thermal  zero 
shift  tests  were  performed  on  two  occasions  and  the  results  indicated  a 
thermal  zero  shift  of  0.006  %/VFS/°C  or  0.0012  g's/  C  which  was 
approximately  twice  the  value(in  g's/°C)  of  the  accelerometer  developed  in 
this  study. 

Although  the  thermal  zero  shift  was  greater  and  the  sensitivity 
reduced  for  the  AE864C  accelerometer  these  values  were  still  within  the 
acceptable  range  for  this  type  of  research.  The  major  advantage  of  the 
AE864C  is  its  smaller  size  and  weight  and  the  use  of  this  accelerometer 
would  result  in  a  much  smaller  body  mounted  measurement  package.  It  is 
recommended  that  the  AE864C  accelerometer  be  used  in  any  future  research. 


The  accelerometer  measurement  method  developed  in  this  study  could  al 
be  used  in  kinematic  studies  of  the  motion  of  other  body  members.  With 
appropriate  modifications  for  mounting  the  system,  this  method  could  be 
used  to  measure  the  three  dimensional  motion  of  the  head,  thorax,  arms  or 
shank.  Other  studies  have  made  acceleration  or  position  measurements  with 
accelerometers,  or  targets,  attached  to  these  locations.  This  use  of  the 
accelerometer  system  developed  in  this  study  would  only  be  possible  if 
suitable  mounting  systems  were  developed.  However,  such  applications  could 
be  suitable  areas  of  investigation  for  future  studies. 
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APPENDIX  A 

AF.800  Silicon  Element  Specifications 


A1 


Solid  State  Products 


SEMICONDUCTOR 
TRANSDUCER  ELEMENTS 


AE  801 
AE  802 
AE  803 


The  AKERS  800  series  transducer  elements  represent  an  improvement  in  the  ’ 

measuring  and  control  field.  A  silicon  beam  with  planar  diffused  resistors  . 

is  the  active  element  of  this  new  multipurpose  transducer  element,  which 
converts  force,  pressure,  movement,  acceleration  and  angle  etc.  to  electrical 
signals.  } 

\ 

A  deflection  of  the  beam  gives  a  resistance  change  in  the  diffused  resistors  J 

on  both  sides  of  the  beam.  An  electrical  signal  may  be  obtained  which  is  < 

nearly  proportional  to  the  deflection  cf  the  beam.  ' 


AE  800  features: 


LOW  IMPEDANCE 
HIGH  OUTPUT  SIGNAL 
SMALL  SIZE 

HIGH  FREQUENCY  RESPONSE 
EASY  MOUNTING 


AE  800  applications: 

PRESSURE  TRANSDUCERS 
LOAD  CELLS 

DEFLECTION  TRANSDUCERS 
ACCELEROMETERS 
INCLINOMETERS 
etc . 

AE  470/1 
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Member  of  the  AKERS  CROUP 
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STRAIN  (  1  >jS  :  relative  elongation  of  10  ^  ) 

The  recommended  maximum  strain  in  the  beam  is  1000  uS,  given  by  the  formula: 

£  ■  1 ,5-h ' — » 

max  j l 

with  the  same  nomenclature  as  above. 

The  maximum  deflection  of  the  beam  corresponds  to  a  resistance  change 
A  R/R  of  the  order  of  5-6%. 

At  6  volts  supply  voltage  and  maximum  recommended  deflection  of  the  standard 
size  beam,  the  output  voltage  will  be  of  the  order  of  150  mV. 

TEMPERATURE  EFFECTS 

ZERO  SHIFT  is  varying  from 
0,005%°C  to  0,05%°C 

depending  on  bridge  matching,  matching  of  the  diffused  resistors  and  chosen  speci¬ 
fications.  Normally  this  effect  is  so  small  that  it  can  be  neglected. 

SENSITIVITY  SHIFT  is  of  the  order  of 
-  0,2%°C 

when  the  bridge  is  voltage  fed.  Under  severe  temperature  conditions  thermistor 
compensation  is  recommended  in  the  feeding  system. 


FREQUENCY  RESPONSE 

With  normal  beam  dimensions  the  resonance  frequency  is  approximately  7  kHz.  By 
loading  the  beam  or  changing  the  beam  length  and  thickness,  the  resonance  fre¬ 
quency  can  be  chosen  within  wide  limits. 


HANDLING 

During  handling  and  mounting  care  must  be  token  that  the  allowable  strain  is  not 
exceeded.  As  a  limit  for  the  allowable  strain  in  the  beam,  1000  ;uS  has  been 
chosen.  During  fabrication  the  element  has  been  tested  at  1500  /jS  and  means  should 
therefore  be  provided  that  the  maximum  strain  under  no  circumstances  can  exceed 
1500  pS.  A  design  which  includes  the  transducerelement,  must  therefore  include 
means  for  overload  protection.  The  design  should  also  include  provisions  for  pre¬ 
venting  unintended  contact  with  the  transducerelement,  as  this  will  most  certainly 
lead  to  destruction  of  the  silicon  beam.  For  mounting  purpose  cement,  brackets  or 
other  mechanical  arrangement  can  be  used. 


SPECIFICATIONS 


Exitation  : 

Nominal  resistance 

Nominal  resistance  matching  : 

Temperature  coefficient  of 
individual  resistors  : 

Output  voltage 

Zero  shift  of  complete  element  : 

Gauge  factor  of  individual 

resistors  : 

Temperature  coefficient  of 

gauge  factor  : 

Modules  of  elasticity  : 

Max  dissipation  ? 

Non  linearity  at  an  output 

signal  of  25  mV/V  : 

MECHANICAL  DATA  (Standard  beam) 

Case  :  length  : 

:  diameter  : 

Beam  :  length  : 

:  width  : 

:  thickness  : 

Upon  request  "elements  with  thickness 


6  V 

1000  ohm 

10% 

0,8*1 0~3  per  °C 
25  mV/V 

AE801P  AE802P  AE803P 
<0.005%  <0.02%  <0.05% 

of  full  scale  per  °C 

55  -  70 
2*1 0~3  per  °C 

1.6*10^  kp/mm^ 

4  mW/°C  in  oil  1  mW/°C  in  free  a 
ca.  +0.25%  FS. 


5  mm 
1 .8  mm 

5  mm 
1  mm 

0.1  mm  i  10% 

0,15  mm  ±  10%  can  be  delivered. 


f /I 
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Solid  State  Products 

THE  MEASUREMENT  OF  ACCELERATION  USING  THE 
TRANSDUCER  ELEMENTS  AE  801  -  803 


I  n  t  r  od  uction 


The  transducer  element  consists  of  a  silicon  beam  mounted  in  a  special 
header.  The  silicon  beam  has  diffused  resistors  on  each  side.  When 
the  tip  of  the  beam  is  deflected,  the  resistors  will  change  their  values, 
thus  giving  an  electrical  signal  proportional  to  the  deflection. 

In  order  to  achieve  full  scale  output  from  the  transducer  element  a  deflection 
of  between  50  and  1  00  m  icrons  is  needed .  Therefore,  if  a  spring  element 
can  be  made  which  g’ves  this  deflection  when  exposed  to  a  physical 
quantity  such  as  acceleration,  the  transducer  element  will  transform  this 
deflection  to  an  electrical  signal  .  In  the  following  a  brief  description  of 
how  acceleration  measurements  can  be  made  with  the  transducer  element 
is  given  . 

Measurement  of  acceleration 

According  to  Newton's  laws  of  motion,  equilibrium  always  exists  between 
the  sum  of  the  external  forces  acting  on  a  mass  and  the  product  of  mass 
and  acceleration.  It  is  therefore  possible  to  design  an  accelerometer  by 
letting  the  inertial  force  (product  of  mass  and  acceleration)  act  on  a  spring 
and  measure  the  deflection  of  the  spring  under  influence  of  the  inertial  force. 
The  deflection  of  the  spring  will  then  be  proportional  to  the  acceleration  that 
the  mass  is  exposed  to. 

The  deflection  of  the  spring  element  can  be  measured  with  the  transducer 
element  provided  that  the  spring  element  is  designed  to  give  a  deflection 
which  is  suitable  for  the  transducer  element,-  that  is  50  -  100  yum  . 

Ways  of  des  ianing  accelerometers 

Accelerometers  made  with  the  transducer  element  can  be  separated  into 
2  groups,  accelerometers  with  the  silicon  beam  as  the  spring  element  and 
accelerometers  with  other  spring  elements. 

Accelerometers  with  the  silicon  beam  as  the  spring 
element 

For  very  high  accelerations  the  inertial  forces  from  the  beam  itself  will 
load  the  beam  and  deflect  it.  The  sensitivity  of  the  beam  alone  as  an 
accelerometer  is  given  from  the  equation  below. 
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L  -  free  beam  length  mm 

Jt  -  length  from  tip  of  beam  to  the  end  of  the  resistors  in  mm 

(L  — •  Ji  =1  mm) 

h  =  beam  thickness  in  mm 

a  _  , 

—  -  acceleration  mgs 

g 

The  resonance  frequency  for  the  free  beam  is  given  from  the  equation  below: 

^6  h 

T 


f  =  1,31 


10 


(h  and  L  in  mm  give  f  in  Hz) 


The  standard  beam  in  the  transducer  element  AE  801-803  with  a  free  length 
of  4  mm  and  thickness  of  0, 1  mm  will  thus  have  an  acceleration  sensitivity 
of  1500  uV/V/1000  g  and  a  resonance  frequency  of  8200  Hz. 

If  an  increased  sensitivity  is  desired,  a  weight  can  be  added  at  the  tip  of  the 
beam.  The  output  signal  from  such  an  accelerometer  can  be  calculated  from 
the  following  equation: 

AU  _  3  P  -  i'  3 

XT  "  ~~2 -  ‘  ^ 

U  bli  E 

where 

P  =  weight  of  mass  under  the  influence  of  a  given  acceleration  in  kp 

=  distance  between  centre  of  gravity  of  mass  and  centre  of  diffused 
•  resistors  in  mm 

rl  *  gaugefactor  of  resistors 

b  *  width  of  beam  in  mm 

h  -  thickness  of  beam  in  mm 

A  2 

E  3  modulus  of  elasticity  of  silicon  ■  1  .6  •  10  kp/mm 

The  resonance  frequency  of  such  an  accelerometer  configuration  can  be  cal¬ 
culated  from  the  following  equation: 


with  the  same  nomenclature  as  above  but  with  the  addition  of: 
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A7 


Jt  = 


2 

mass  of  added  weight  in  kp  s  /m 

distance  from  centre  of  gravity  of  weigh t  to  the  clamping 
edge  of  the  beam  in  mm 
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Accelerometers  with  a  sepa  rate  spring  element 


Experience  has  shown  that  accelerometers  should  be  able  to  withstand 
acceleration  loads  of  about  WOO  g  without  damage  because  such  accele¬ 
ration  levels  are  reached  during  normal  handling.  Due  to  the  difficulties 
in  designing  stops  for  accelerometers  with  added  weight  at  the  tip,  it  is 
recommended  not  to  make  them  if  they  cannot  withstand  1000  g. 


In  this  case  it  is  recommended  to  use  a  design  with  a  separate  spring  ele¬ 
ment.  The  motion  of  the  spring  mass  system  under  influence  of  accelera¬ 
tion  is  then  detected  by  the  silicon  beam  and  transformed  to  an  electrical 
signal.  In  the  fig.  below  one  way  of  designing  such  a  spring  mess  system 
is  shown.  The  silicon  beam  can  be  preloaded  or  it  is  possible  to  use  exci¬ 
tation  screws  on  both  sides  if  a  higher  output  signal  is  desired. 


4 .  Characteristics  of  a  ccelerometers 

4 . 1  Frequency  respo use  of  accelerometers 

In  the  figure  below  the  output  signal  from  an  accelerometer  exposed  to  a 
constant  acceleration  is  given  as  function  of  frequency  with  respect  to  the 
resonance  frequency  and  damping. 


ACCELEROMETER  OUTPUT 
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Accelerometers  with  the  beam  are  all  low  damping  devices  and  behave 
essential!)'  as  accelerometers  with  c/cc  ~0  (Damping  ratios  of  ~  0.02  are 
typical) . 

It  is  possible  to  increase  the  damping  ratio  to,  for  instance,  0.7  by  sur¬ 
rounding  the  accelerometer  with  oil,  such  as  silicon  oil,  with  a  proper 
viscosity.  This  measure  effects  the  sensitivity  of  the  accelerometer  and 
must  be  taken  into  account  when  calculating  the  sensitivity. 


4.2  Temperature  effects 

Temperature  will  effect  accelerometers  equipped  with  the  beam  in  essen¬ 
tially  the  same  way  as  it  effects  the  beam  alone.  The  following  two 
effects  in  the  beam  are  the  most  significant. 

1.  Zero-shift  of  the  transducer  element.  The  zero-shift  of  the  trans¬ 
ducer  element  can  be  selected  by  selecting  elements  of  the  classes 
801,  802  and  803. 

2.  The  sensitivity  shift  of  the  transducer  element  amounts  to  -0.2%/^C 
and  this  means  that  the  output  from  the  transducer  element  will 
decrease  by  2°A  for  every  10  C  the  temperature  increases. 

For  a  more  detailed  description  of  the  beam,  its  behaviour  under  temperature 
variations  and  the  circuitry  for  use  with  it,  an  application  note  titled  "The 
transducer  element  AE  801  -  803  and  how  to  use  it",  can  be  recommended. 
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5.  S  umma  ry 

The  transducer  element  AE  801,  802  and  803  are  well  suited  for  accelerometer 
applications  ana'  accelerometers  with  very  high  ranges  and  with  low  ranges  can 
be  made.  The  main  advantages  of  accelerometers  made  with  the  transducer 
element  are: 

1.  Cross  sensitivity  theoretically  -  0 

2.  Low  source  impedance 

3.  Small  size 

4.  Low  damping. 
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Pre-amplifier/ Amplifier  Specifications 
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LM121/LM221/LM321  precision 
general  description 

The  LM121  series  are  precision  preamplifiers 
designed  to  operate  with  general  purpose  opera¬ 
tional  amplifiers  to  drastically  decrease  DC  errors. 
Drift,  bias  current,  common  mode  and  supply 
rejection  are  more  than  a  factor  of  10  better  than 
standard  op  amps  alone.  Further,  the  added  DC 
gain  of  the  LM121  decreases  the  closed  loop  gain 
error. 

The  LM121  operates  with  supply  voltages  from 
±3V  to  ±20V  and  has  sufficient  supply  rejection 
to  operate  from  unregulated  supplies.  The  operat¬ 
ing  current  is  programmable  from  5pA  to  200pA 
so  bias  current,  offset  current,  gain  and  noise  can 
be  optimized  for  the  particular  application  while 
still  realizing  very  low  drift.  Super-gain  transistors 
are  used  for  the  input  stage  so  input  error  currents 
are  lower  than  conventional  amplifiers  at  the  same 
operating  current.  Further,  the  initial  offset  voltage 
is  easily  nulled  to  zero. 

advantages 

•  Permits  optimization  of  general  purpose  op  amps 

■  Replaces  many  specialized  op  amps 

features 

■  Guaranteed  drift  less  than  1pV/°C  when  nulled 

■  Offset  voltage  less  than  0.7  mV 
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preamplifiers’  t 3-tue: 

396  Bash  f.oati.  ^ 

■  Bias  current  lessJthaK^ViV^TIOpA  operating 
current 


■  CMRR  120dB  minimum 

■  114dB  supply  rejection 

■  Easily  nulled  offset  voltage 

The  extremely  low  drift  of  the  LM121  will  improve 
accuracy  on  almost  any  precision  DC  circuit.  For 
example,  instrumentation  amplifier,  strain  gauge 
amplifiers  and  thermocouple  amplifiers  now  using 
chopper  amplifiers  can  be  made  with  the  LM121. 
The  full  differential  input  and  high  common  mode 
rejection  are  another  advantage  over  choppers.  For 
applications  where  low  bias  current  is  more  impot 
tant  than  drift,  the  operating  current  can  be  re 
duced  to  low  values.  High  operating  currents  can 
be  used  for  low  voltage  noise  with  low  source 
resistance.  The  programmable  operating  current  of 
the  LM121  allows  tailoring  the  input  character 
istics  to  match  those  of  specialized  op  amps. 

The  LM121  is  specified  over  a  -55°C  to  125°C 
temperature  range,  the  LM221  over  a  -25l'C  to 
85°C  range  and  the  LM321  over  a  0°C  to  70°C 
temperature  range. 

A  lower  drift  version  oi  the  LIVI121  —  the  LM121 A 
series  -  is  available  for  applications  requiring 
0.2pV/°C  offset  voltage  drift. 


schematic  diagram* 


absolute  maximum  ratings 

Supply  Voltage  ±20V 

Power  Dissipation  (Note  1)  '  500mW 

Differential  Input  Voltage  (Notes  2,  3)  ±15V 

Input  Voltage  (Note  3)  ±15V 

Operating  Temperature  Range 

LM121  -55°C  to  125°C 

LM221  -25°C  to  85°C 

LM321  '  0°C  to  70°C 

Storage  Temperature  Range  — 65°Cto  150  C 

Lead  Temperature  (Soldering,  10  sec)  300  C 

electrical  characteristics  (Note  4) 


PARAMETER 

CONDITIONS 

LM121 

LM221 

LM321 

UNITS 

T»  =  25°C 

0.7 

Input  Offset  Voltage 

6.4k  <  Rs.,  <  70k 

1.5 

Max 

Input  Offset  Current 

Ta  =  25°C  RSe,  =  70k 

RSet  =  6.4k 

1 

2 

.  ■■  "  ■;  - 

Max 

10 

20 

1 

Max 

Input  Bias  Current 

Ta  =  25°  C  Rs„  =  70k 

10 

100 

18 

1 

Max 

Max 

Rs«t  =  6.4k 

180 

Input  Resistance 

Ta  =  25°  C  RSet  =  70k 

4 

0.4 

2 

0.2 

Min 

Rset  =  6.4k 

M12 

Min 

Supply  Current 

Ta  =  25°  C 

1.5 

2.2 

mA 

Max 

Input  Offset  Voltage 

6.4k  <  RSet  =  70k 

1 

2.5 

mV 

Max 

Input  Bias  Current 

RSet  =  70k 

30 

28 

nA 

RSe,  =  6.4k 

300 

280 

nA 

Input  Offset  Current 

Rs«t  =  70k 

3 

4 

nA 

Max 

Rset  =  6.4k 

30 

40 

nA 

Max 

Average  Temperature  Coefficient 

Rs  <  200n  6.4k  <  RSe,  <  70k 

1 

1 

pV/°C 

Max 

of  Input  Offset  Voltage 

Offset  Voltage  Nulled 

Supply  Current 

2.5 

3.5 

mA 

Max 

Input  Voltage  Range 

Vs  =  ±15V  RSet  =  70k 

±13 

±13 

V 

Min 

+7 

+7 

RSe,  =  6.4k  (Note  5) 

-13 

-13 

V 

Min 

Common  Mode  Rejection  Ratio 

RSei  =  70k 

120 

114 

dB 

Min 

RSe,  =  6.4k 

114 

114 

dB 

Mm 

Supply  Voltage  Rejection  Ratio 

Voltage  Gain 

Rset  =  70k 

RSet  =  6.4k 

Ta  =  25° C  Rg.,  =  70k 

R  L  >  3  meg 

120 

114 

16 

114 

114 

dB 

dB 

Min 

Mm 

12 

V/V 

Min 

Note  1;  The  maximum  junction  temperature  of  the  LM121  is  150cC,  while  that  of  the  LM221  is  tOO'X.  The  maximum 
junction  temperature  of  the  LM321  is  85  C  For  operating  at  elevated  temperature,  device*  in  the  TO  6  package  must  be 
derated  based  on  a  thermal  resistance  of  150  C/W,  (unction  to  ambient,  or  45  C/W.  junction  to  case.  For  the  flat  package. 
th*>  derating  is  based  on  a  thermal  resistance  of  ISB^C/W  when  mounted  on  a  1  /6  inch-thick  epoxy  glass  board  with  ten, 

0  03-mch-wide.  2-ounce  cooper  conductors.  The  thermal  resistance  of  the  dual  in-line  package  is  100  C/W.  |unction  to  ambient 

Note  2:  The  inputs  are  shunted  with  back-to-back  diodes  in  series  with  a  50011  resistor  for  overvoltage  protection.  Therefore. 

excessive  current  will  flow  if  a  differential  input  voltaqe  in  excess  of  IV  is  applied  between  the  inputs 

Not*  3:  For  suppiv  voh.vj«»s  less  than  •  15V,  the  absolute  maximum  input  voltage  is  eaual  to  the  supply  voltage 

Not*  4:  These  specifications  apply  tor  *5  <  V s<  i20V  and  -55°C  <  T^  <  125UC,  unless  otherwise  specified.  With  the 

LM221,  however,  all  temperature  specifications  are  limited  to  -25°C  <  T^  <  85°C.  and  for  the  LM321  the  specifications 

apply  over  a  0“ C  to  70cC  temperature  range 

Note  ft:  External  precision  resistors-0  1  %— can  be  placed  from  pins  I  end  8  to  7  to  increese  positive  common  mode  range. 

—  —  — — ..  ^ — -■ - ---■  -  - . — I,...*. — iiiiMiiiMl 


typical  applications 


Low  Drift  Op  Amp  Usiitq  the  LM121  as  a  Preamp 


Gain  of  1000  Instrumentation  Amplifier t 


FIGURE  1. 


FIGURE  2. 


frequency  compensation 

Universal  Frequency  Compensation 

The  additional  gain  of  the  LM121  preamplifier 
when  used  with  an  operational  amplifier  usually 
necessitates  additional  frequency  compensation. 
When  the  closed  loop  gain  of  the  op  amp  with  the 
l Ml 21  is  less  than  the  gain  of  the  LM121  alone, 
more  compensation  :s  needed.  The  worst  case 
situation  is  when  there  is  100%  feedback  —  such 
as  a  voltage  follower  or  integrator  —  and  the  gain 
of  the  LM121  is  high.  When  high  closed  loop  gains 
are  used  —  for  example  Av  =  1000  —  and  only 
an  addition  gain  of  200  is  inserted  by  the  LM121, 
the  frequency  compensation  of  the  op  amp  will 
usually  suffice. 

The  frequency  compensation  shown  here  is  designed 
to  operate  with  any  unity-gain  stable  op  amp. 
Figure  1  shows  the  basic  configuration  of  frequency 
stabilizing  netwoik.  In  operation  the  output  of  the 
LM121  is  rendered  single  ended  by  a  O.OlpF 
bypass  capacitor  to  ground.  Overall  frequency 
compensation  then  is  achieved  by  an  integrating 
capacitor  around  the  op  amp. 


12 

Bandwidth  at  unity  gain  s - 

2rrRSct  C 


4 

for  0.5  MHz  bandwidth  C  "  — - - 

10°  Rs,, 


For  use  with  higher  frequency  op  amps  such  as 
the  LM118  the  bandwidth  may  he  increased  to 
about  2  MHz. 

If  the  closed  loop  gam  is  gi eater  than  unity  "C" 
may  be  decreased  hy 

4 

~  106  Acu  RSp, 


Alternate  Compensation 

The  two  compensation  capacitors  can  be  made 
equal  for  improved  power  supply  rejection.  In  this 
case  the  formula  for  the  compensation  capacitor 
is 


B 

C~  10c  ACL  RSet 

Table  1  shoves  typical  values  for  the  two  com¬ 
pensating  capacitors  for  various  gains  and  operating 
currents. 


TABLE  1. 


CLOSED 

LOOP 

GAIN 

•  CURRENT  SET  RESISTOR 

60k  W 

30k  i! 

12K12 

Gtci:  1 

Av  =  J 

68 

130 

270 

680 

1 300 

Av  *  5 

15 

27 

56 

130 

270 

Av  r  tO 

10 

15 

27 

68 

130 

Av  -  50 

1 

3 

5 

15 

27 

Ay  *  100 

- 

' 

3 

5 

1U 

Av  *  600 

- 

1 

1 

3 

Ay  -  1000 

- 

' 

This  table  applies  for  the  LM108.  LM101A, 
LM741,  LM118.  Capacitance  is  in  pF. 

Design  equations  for  the  LM121  series: 

1.2  X  10° 

Gain  Av  ~  - 

Rs„. 


Null  Pot  Value  should  be  10%  of  RSet 
2  X  0.65V 

Operating  Current  - - - - 

6  Sex 


Positive  Common 
Mode  Limit 


,  0.65V  X  00k 

V  -  0.6  + - 

RSot 


definition  of  terms 


Input  Offset  Voltage'.  That  voltage  which  must  be 
applied  between  the  input  terminals  through  two 
equal  resistances  to  obtain  zero  output  voltage. 

Input  Offset  Current:  The  difference  in  the 
currents  into  the  two  input  terminals  when  the 
output  is  at  zero. 

Input  Voltage  Range:  The  range  of  voltages  on 
the  input  terminals  for  which  the  offset  specifica¬ 
tions  apply. 

Input  Bias  Current:  The  average  of  the  two  input 
currents. 

Common  Mode  Rejection  Ratio:  The  ratio  of  the 


input  voltage  range  to  the  peakto-peak  change  in 
input  offset  voltage  over  this  range. 

Supply  Current:  The  current  required  from  the 
power  supply  to  operate  the  amplifier. 

Voltage  Gain:  The  ratio  of  the  differential  output 
voltage  swing  to  the  change  in  input  voltage 
required  to  drive  the  output  from  zero  to  this 
voltage. 

Power  Supply  Rejection:  The  ratio  of  the  change 
in  input  offset  voltage  to  the  change  in  power 
supply  voltages  producing  it. 


connection  diagrams 


Metal  Can 


Flat  Package 


DuaMn-Line 


Note:  Outputs  are  inverting  from  the  input  of  the  same  number. 


physical  dimensions 


•‘itusu* 
»>(ID  — 


Order  Numbers: 
LM121H,  LM221H,  LM321H 


Order  Numbers: 
LM121F.  LM221F,  LM321F 


Order  Numbers: 
LM121D,  LM221D,  LM321D 


Mjes'acteifd  u«dfr  yst  v  mo"  a*  Miio«nf  IS  prrntl  308326?.  3189758.  3?31797.  3303356  331*73.  3323073  331107],  3*0854?.  342102S.  3425423.  3*40*98  .  35II7SO.  3539197.  3557*31.  35W765 
’5«;i?  357163C  3575M9  35>9059.  3593065  35576*0  3607469  .  3617859  ,  3631312  .  363305?,  3638131.  3648071.  3651565  36  9  3248 


National  Semiconductor  Corporation 

2900  S*r*,co"<JuCtO'  Drive.  Santa  Carr  CJhfo'n.a  95051  (408)  732-5000/TWX  (9l0»  339  9240 


Netionel  Semiconductor  GmbH 
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Netionel  Semiconductor  (UK)  Ltd. 

^**»fie'<J  industrial  E trite  Greenock  Scoti»nd  Tei«  3325i/Teir*  776-63? 
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Operational  Amplifiers 


LM108A/LM208A/LIV1308A  operational  amplifier 
general  description 


I hf  LM108A,  LM708A  .m<l  LW308A  are  precision 
opeia*iona1  amplifier*  having  specifications  about 
a  factor  of  ten  better  than  F£f  amplifiers  over 
their  operating  temperature  range.  In  addition  to 
low  mput  currents,  the^r  devices  have  extremely 
tow  offset  voltage,  making  it  possible  to  eliminate 
offset  acfjustmcnts,  in  most  cases,  and  obtain 
performance  approaching  chopper  stabilized 
amplifiers. 

The  devices  operate  with  supply  voltages  from 
♦2V  to  t20V  and  have  sufficient  supply  rejection 
to  use  unregulated  supplies.  Although  the  circuit  is 
interchangeable  with  and  uses  the  same  compensa¬ 
tion  as  the  LM101A.  an  alternate  compensation 
scheme  can  be  used  to  make  it  particularly  insensi¬ 
tive  to  power  supply  noise  and  to  make  supply 
bypass  capacitors  unnecessary.  Outstanding  char¬ 
acteristics  include: 

■  Offset  voltage  guaranteed  less  than  O.b  mV 

■  Maximum  input  bias  current  of  3.0  nA  over 
temperature 


Offset  current  less  than  400  pA  over  tempera¬ 
ture 

Supply  current  of  only  300mA,  even  in 
saturation 

Guaranteed  5mV/°C  drift. 


The  low  current  error  of  the  LM108A  scries  mokes 
possible  many  designs  that  are  not  practical  with 
conventional  amplifiers.  In  fact,  it  operates  from 
10  MS2  source  resistances,  introducing  less  error 
than  devices  like  the  709  with  10  k!2  sources  Inte 
grators  with  drifts  less  than  500  pV/ sec  and  analog 
time  delays  in  excess  of  one  hour  can  be  made 
using  capacitors  no  larger  than  1  pF. 

The  LM208A  is  identical  to  the  LM108A.  except 
that  the  1.M208A  has  its  performance  guaranteed 
over  a  -25°C  to  85"  C  temperature  range,  instead 
of  ~55cC  to  125°C.  The  LM308A  has  slightly- 
relaxed  specifications  and  has  its  performance 
guaranteed  over  a  0^C  to  70  C  temperature  range. 


connection  diagrams  * 

Metal  Can 


am 


XOtMNvrRT  1 
IMPU1 
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Ordnr  Number  l  Ml  03  AH  or 
LM208AH  or  LMJOftAH 
See  Package  1 1 


schematic  diagram  ’ 
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Order  Number  LM108AF  or 
LM208AF  or  LM308AF 
See  Package  3 


Order  Number  LM308AN 
See  Package  20 


ask 


tkj 


Unit  Pm  >  r«pn«ct*tf  >b  fcniiam  *1 


2  148 


Order  Number  LM108AD 
or  LM208AD  or  LM308AQ 
Sec  Package  1 
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RS  Power  Supply  Specifications 

R.  S.  COMPONENTS  LIMITED 

13-17  Epworth  Street 
London  EC2P  2HA 
Telephone  01 -253  1222 


DATA  SHEET 


DUAL  REGULATORS 

FIX  ED±15  VOLT 


305-636 


Two  "K>nolithic  regulators  in  D.I.L.  packages  giving  fixed  or  variable  complementary 
outputs.  Currents  to  100mA.  Internal  current  limiting  and  thermal  shutdown. 

FEATURES 


Fixed  305-636 
±18  to  ±30V 
100mA 
600mW 


Variable  306-011 
±9-5  to  +35V 
100mA 
900mW 


CONNECTIONS 


n 

□ 

1.  +  COMPENSATION 

• 

LJ 

2.  GROUND 

3.  -  COMPENSATION 
-  VlN 

5.  "  15V  OUTPUT 

6.  BALANCE 

7.  +  15V  OUTPUT 

8.  +  V|N 


11 


i . 

+  V  OUTPUT 

2. 

N.C. 

3. 

-  C0MPENSAT 

A. 

BALANCE 

5- 

+  COMPENSATI 

6. 

N.C. 

7. 

-VIN 

8. 

-  v0UT 

9- 

N.C. 

10. 

radj 

1 1 . 

rcal 

12  . 

GND 

13- 

N.C. 

1 A  . 

♦VIN 

ALL  CONNECTIONS  VIEWED  FROM  THE  TOP. 


ABSOLUTE  MAXIMUM  RATINGS  AT  Tf 
Input  voltage  +30 


Tj  (thermal  protected)  +175 


PARAMETER 


■  >  ■ 

Vout  (Pos,i  t!ve  to  negat  j  ye^'j  | 

\i  “  1  • 

VIN 

INPUT/OUTPUT  DIFF.  VOLTAGE  @  50mA 
OUTPUT’ VOLTAGE  BALANCE,  * 

LINE  REGULATION 
LOAD  REGULATION  (to  100mA) 

RIPPLE  REJECTION  :  ; 

OUTPUT  VOLTAGE  TEMP.  COEFF.  •  . 
SHORT  CIRCUIT  CURRENT  (SET  INTERNAL) 
STAND  BY  CURRENT  +  ID  r  0 
OUTPUT  NOISE  VOLTAGE  100  Hz  -  10kHz 
INTERNAL  SHUTDOWN  TEMP. 


}  1,305  r  636 

MIN-  TYP 

MAX 

/j.-tV.s. '.15.0 

15-5 

18 

30 

3 

.  ±i-8 

0.01 

0.1 

0.03 

0.2 

-  :  75 

i 

-  b.005 

0.005 

-  i  220 

- 

"  1  1-5 

3-0 

-  !  60 

- 

-  ;  175 

- 

306  -  on 


MIN  TYP 


MAX 


30  I  v 


±1-5  - 

0.02  0.2  %  V 

0.1  0.4  %  V 

70  -  dB 

0-015  * 

300  -  mA 

1.2  3-0  mA 

gV  rim 
°C 


BASIC  CIRCUIT 

Trp« 

707717 


±15V  Output 


Variable  Out , 


To  balance  f i xed  .  regul ator  additional 
potentiometer  circuit  can  be  used. 


(I20kft  +  l80kfi  in  parallel  = 
Radj  =  2.5kfi  per  Volt  output 

(For  -  15V  use  50kft  1 i n  pot) 


415V 

p-°+v0 

it.»Kn 


’  -  isv 

1  70 -vo 


R/2040  JUL  76 


3300pF  c 
6)V' 


o.54niw 

!  3300pF 
’63V 


Performance  at  20  C  T- 


Lodd  reg.  (o-1A);  1.1% 
Ripple  rejection  ^  60dB 
line  reg.  (18-3OV)  =  0.065% 
Current  limit  t 1 .02A 


2N305S 

—  -  -  —  ■  4  ,  ■  .  .  i- 

Heatsink  for  each  30 5 f» 
transistor  k°C/U  (40  1  -ii97) 
0.5^  limit  resistors  are 
2  x  0.27OJW  in  series. 


R/20^0  JUl  76 


I 

t 

\ 


1 

f 

* 


r  j 

[  \ 


I 

f 
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APPENDIX  P 

Data  Processing  Computer  Program  Listings 


C* **  PROGRAM  CALIB1 

C***THIS  PROGRAM  READS  16  CHANNELS  OF  DATA  FOR  EACH  OF 
C***  6  POSITIONS, CONVERTS  IT  TO  REAL  VOLTAGES,  AMD  OUTPUTS 

C***  THE  RESULTS  IN  A  TAPLF  OF  THE  FORE'S 
C***  POS  CHAM  CHAN2  CHAN 3 . CHAM  6 

C***IT  ALSO  OUTPUTS  SCALE  FACTORS  AND  OFFSETS  FOR  THESE  CHAMJFLS 
C***AND  STORES  THESE  IN  DISC  FILE  DK 0 : CALI BD . DAT . 

C *** 

C***  LINK  AS  CALIE1*C ALIBI, ADCSET ,ASCAN,5YSLIB/F 

C *** 

DIMENSION  ICTLWD( 16) ,IPOL( 16) ,IREAD(16) ,TABL(6,16) , 

1  ITIT(3),OUTABL(4,16),1TIm(4),ITIMEC12),SCALF(4B), 

2  OFSET(4fc)„STORE(5,16) 

LOGICAL»l  1DAT{9) , IDATE(9) 

DATA  IYES/'YE'/,1BE1/'BE'/,IBE2/'F0'/,IBE3/'RE'/ 

DATA  IAF1/'  A'/,IAF2/'FT'/,IAF3/'ER'/,IAFT/'AF'/ 

COMMON  /ASV/1F2S 

IOB=7 

IK6=5 

CALL  ASSIGN (9, 'KBt',0,) 

IOD=9 

JPOS=6 

NCHANM6 

C***ENTER  SUBJECT  AND  RECORD  NUMBER 
WRITEdOB,2COO) 

2000  FOFMATdOX, 'ENTER  RECORD  NUMBER  AND  SUBJECT  NUMBER') 
FEAD(IKb,1000)  IREC, ISUB 
1000  FORMAT (214) 

C***SET  BEFORE  OR  AF  TFR  WALK  CALIBRATION  FLAG 
WRITEdDB,2010) 

2010  F0RMAT(10X,'IS  THIS  BEFORE  WALK  CALI BRATIDNY C YES/NO) ' ) 
READ(IKB,1010)  IY 
1010  FORMAT ( A2 ) 

ITIT(1 )=IBE1 
ITIT(2)=IBE2 
ITIT(3)sIBE3 
IF ( I Y. EG. 1  YES)  GO  TO  5 
ITITd)sIAFl 
ITITC2)=IAF2 
ITIT ( 3 )=I AF3 
5  CALL  DATE  C I DAT) 

CALL  TIME(ITIM) 

C***SET  16  CHANNELS  TO  BIPOLAR  MODE 
DO  10  1=1,16 
10  IP0LCI)=2 

C***ZERO  TABL  ARRAY 
DO  20  J=1 ,fa 
DO  20  N= 1 ,1b 
20  TABL ( J , N )=0 . 0 

C***SET  UP  ADC  WORDS 

CALL  ADC5FT(NCHAN,IP0L,ICTLWD) 

C***TAKE  CALIBRATION  DATA  FOR  JPOS  POSITIONS 
DO  70  J=1,JP0S 

PAUSE  'CR  TO  TAKE  DATA  SAMPLE' 

C***TAKE  5  SAMPLES  FOR  EACH  CHANNEL , CONVERT  TO  REAL  VOLTAGES 
DO  30  1=1,5 

CALL  ASCAN(NCRAN,ICTLWD,IREAD) 

DO  30  K*1 , NCriAN 

30  STORE(I,K)=(FLOAT(IREAD(K)-512*(IPOL(K)-1 ) ) )/204.6048 

C***TAKE  THE  MEAN  AND  STORE  IN  TABL  ARRAY 
DO  40  1*1,5 
DO  40  K*1 , NCHAN 

TABL(J,K)»TABL(J,K)4ST0RE(1,K) 


i 

i 


I 


i 


1 


40 


F2 

DP  50  F*1,NCHAN 
SAMPS=5.0 

TABL(J,K)=TABl(J,K)/5.0 

C***ELlMINATfc  SAMPLES  .GT.  *  OR  -  10  MV-S  FROM  MEAN 
DO  50  1=1,5 

IF (STORE(I,K).GT.*0.01).OR.STORE(I,K).L1.(TABLCJ,K) 

1  (TABL(J,K)-.01))  TAPL(J,K)s(5.0*TABL(J,K)-ST0RE(I,K)) 

2  /(SAMPS-1.0) 

50  CONTINUE 

70  CONTINUE 

C***WRITE  HEADING  AND  VOLTAGE  READING  TABLE  TO  PRINTER 

WRIT£(IOD,2020)  ITIT , I SUB , I REC , ( IT AT C 1 ) , 1=1 , 9 ) , ITI M 
2020  FORMAT ( 1 H  ,/3A2,'  WALK  CALIBRATION  EOF  SUBJECT  NUMBER (  ', 

1  14, 5X, 'RECORD  NUMBER 14 , 5X , 'DATE J  9A 1 , 5X , 'TIMES  ',4A2) 

WR1TE(IOD,2060) 

2060  FORMAT C 1 H  , 'CALIBRATION  DATA  TABLE  (IN  VOLTS)') 

WFITE(IOD,2080)  ( J  ,  J=1 ,16) 

2080  FORMAT(16C6X,I2) ) 

WRITE(IOD,2090)  ( J, (TABLC J,K) ,K=1 ,NCHAN) , J*1 , JPOS) 

2090  FCRMAT(12,16F8,3) 

C***COMPUTE  SCALE  FACTORS  CIN  VOLTS/G) 

C***  FOR  INDIVIDUAL  ACCELEROMETER  CHANNELS 

OUTABLCl,l)=(TAbL(2, 1 )-TARL(4, 1 ) )*0.5 
OUTABbd  ,2)  =  (TABL(2,2)-TABL(4,2)  )*0.5 
DO  80  M=3,b 

80  OUTABLd  ,M)  =  CTABL(5,M)-TABL(6,M)  )*0.5 

OUTABLd  ,7)  =  (TABL(3,7)-TABLd,7)  )*0,5 
OUTABLd  ,8)s(TABL(3,8)-TABL(l,8)  )*0.5 
C***COMPUTE  SCALE  FACTORS  (IN  VOLTS/G)  FOR 
C***  DIFFERENCE  AMPL1FIFR  CHANNELS 

OUTABLd  ,9)r  (OUTABLd  ,l)+OUTABL(l  ,2))  *3. 0*0.5 
OUTABLd  ,10)*(OUTABL(1 ,3)+0UTABL(l ,4) )*4. 74*0.5 
0UTABLd,ll)s(0UTAbLCl,5)+0UTABL(l  ,  6  )  )  *4*  .  74*0 . 5 
GUTABLd  ,12)  =  (  OUTABLd  , 7 ) +OUT ABL (1 , 8 ) ) *3 . 0*0 . 5 
C***COMPUTE  SCALE  FACTORS  (IN  VOLTS/G)  FOR  SUMMING 
c***amplifiep  CHANNELS. 

OUTABLd ,13)=(TABLC2, 13)-TABL( 4,13) )*0.25 
OUTABLd,)  4)s(TABL  (5,14  )-TABL(6, 14)  )*0. 25 
OUTABLd  ,  15)s(TABL(  5,1 5)-TAbL(6, 15)  )  *0,25 
OUTABLd,  l6)s(TABL(3,16)-TABL(l,  16))  *0.25 
C***COMPUTE  OFFSETS  (IN  VOLTS)  FOR  ALL  CHANNELS 
DO  90  Msl ,6 

90  OUTABL ( 2 , M)sTAbL(l , M ) 

OUTABL(2,7)s(TAUL(3,7)+TABL(l ,7) )*0,5 
OUTABL(2,8)*(TABL(3,8)+TABL( 1 ,6) )*0.5 
DO  100  M=9 , 1 5 

100  OUTABL(?,M)sTABL() ,M) 

OUTABLd, 16)s(TABL(3,16)*TABLd , 16) )*0.b 
WRITE(IOD,2100) 

2100  FORMATdH  , 'CH ANN FI  '  ,  2 d OX  ,  ' SC ALE  FACTOR ',  1  OX  , 'OFFSET' )  ) 
WRITE(I0D,21 10) 

2110  FORMATdH  ,  1  8X  ,'(  VOLTS/G)  ',  1 1 X  ,'  (VULT5  )',  1  OX ,'  (G-S/VOLT)  ' 
1  , 1 2X , ' (G-S) ' ) 

DO  120  M=1 , 1 6 

OUTABL(3,M)  =  1.0/ OUTABLd, M) 

120  0UTABL(4,  M)*0U1ABF,(  2,  M) /OUTABLd  ,M) 

WRITE(IOD,2120)  (M, (OUTABL(L.M) ,L*1 ,4) ,M=1 ,16) 

2120  FORMAT ( 1H  , 2X , 12 , 1 1 X ,F1 1 . 4 , 8X ,F1 1 , 4 , 10X ,F 1 1 ,7 ,8X ,F1 1 ,7 ) 
C***STORE  SCALE  FACTORS  AND  OFSETS  IN  DISC  FILE 
ICODEsIAFT 

IFCIY.EO.IYES)  ICODFsIBEl 
C***ASSIGN  AND  DEFINE  OUTPUT  FILE 

CALL  ASSI GN ( 25, 'DKO SCALIBD.DAT ',14, 'OLD') 

DEFINE  FILE  25 C 1 0 , 2 1 5 , U , IF25) 

DO  190  !■! »9 
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IF(ICODE.EQ.IAFT)  GO  TO  250 

C***IF  BEFORE  WALK  CALIBRATION  STORE  ONLY  INITIAL  VALUES 
DO  200  1  =  1,4 

200  1TIME(I)=1TIM(I) 

DO  210  1=5,12 
210  1T1ME(I)=0 

DO  220  1=1,16 
SCALF(I)=OUTARL(3,l) 

220  OFSETCI ) =OUTABL( 4 , I ) 

C***FILL  REMAINDER  WITH  ZERO 
DO  230  1*17,48 
SCALF ( I )»0. 0 
230  OFSET { I ) =  0  . 0 

GO  TO  300 

C***IF  AFTER  WALK, COMPUTE  MFAN  OF  BEFORE/AFTER  WALK; STORE  ALL  VALUES 
C***  FIRST  READ  BEFORE  WALK  VALUES 

250  READ ( 2b 'IREC )  IRECST , ISUB , I  DATE , ITIME, SCALF, OFSET 

C***INSURF.  THAT  CURRENT  AND  STORED  RECORD  NUMBERS  ARE  THE  SAME 
IF(IREC.NE.IRFCST)  CALL  CLOSE(25) 

IF(IREC.NE.IRFCST)  STOP  'RECORD  NUMBERS  DO  NOT  MATCH' 
C***STORE  AFTER/MFAN  «*ALK  TIMES— MEAN  a  AFTER 
DO  260  1=1,4 
ITIME(1+4)=1TIM(I) 

260  ITIME(1+8)=ITIK(I) 

C***STORE  SCALF  FACTORS  AND  OFFSETS 
DO  270  1=1,16 
SCALF(I+16)=OUTABL(3,I) 

270  0FSET(I+16)=0UTABL(4,I) 

C»4»COMPUTE  MEAN  VALUES 
DO  280  1=1,16 

SCALF ( 1+32 )= (SCALF ( I )+SCALF( 1+16)) *0.5 
280  OFSET(I+32)=(OF5ET(I)+OFSET£I+16))*0.5 

C***WRITE  VALUES  TO  DISC  FILE 

300  WRITE(25'IRFC)  IPEC , ISUB , ID ATE , ITI ME , SCALF , OFSET 

C***WRITE  MEAN  VALUES  TO  PRINTER  IF  ON  AFTER  WALK  CALIBRATION 
1FCIY.EQ.IYE5)  GO  TO  320 

READ ( 25 ' IREC )  IREC , ISUB , I  DATE , ITIME , SCALF , OFSET 
WRITE(I0D,2500)  IREC , ISUB , I  DATE 

2500  FORMAT ( 1 H  ,?X,'MEAN  SCALE  FACTORS  AND  OFSETS  FOR  REC0RD:'I4, 
1  '  SUBJECT:  ',14,'  DATE:  ' , 9 A 1 ) 

WPITE( 100,2520)  (SC ALF ( I ) , 1  =  33 , 48 ) 

WRITE (IOD, 2520)  ( OFSET ( I ) , 1=33 , 48 ) 

2520  FORMAT(8(2X,F11.7)) 

C***CLOSE  ALL  OPEN  FILES 
320  CALL  CLOSE ( 25 ) 

CALL  EXIT 
END 


C***  DATLRG  *** 

C***  PROGRAMME  to  READ  DATA  FROM  ADC  AND  STORE  IT  ON  DISC 
C***  WHILE  SIMULTANEOUSLY  DISPLAYING  IT 

C*** 

c*** 

C***  INITIALISATION 

INTEGERW2  DBLK(4) 

DIMENSION  ILISTf 3) 

COMMON  /ADC/NNT , NCHAN ,ICTLWD(16) ,IPOL(16) 

COMMON  /WPARAM/ICHAN,JBLK,IBUFF,ICOUNT,ICTRN 
C***  PRESET  VALUES 

DATA  DBLK/3RDK3,3RADC,3R  ,3RDAT/ 

DATA  IYES/'YE'/ 

DATA  ILISr/M70404,0,<>/ 

C***  INPUT  AND  OUTPUT  CHANNELS 
INP=5 
IOP=7 
CALL  SWPR 

C***  DEFINE  DATA  FILE  FOR  INDEX  USE 

CALL  ASSIGN (20, 'DK3iADC.DAT ', 11 , 'OLD') 

DEFINE  FILE20(20,166,U,IF1) 

C***  GET  RT-11  CHANNEL  NUMBER 
ICHAN*IGETC( ) 

IF  (ICHAN.LT. 0)  STOP  'DATIN  CANT  ALLOCATE  A  CHANNEL' 
JCHANsICHAN 
C***  LOOK  UP  FILE 

IF (LOOKUPCICHAN.DBLK) .LT.OISTOP  'OPFN  ERROR' 

C***  FIND  NEXT  AVAILABLE  RECORD 
DO  10  1*1,20 
II  =  I 

READ(20'1I)NNT 
IF(NNT.EO.O)GOTO  20 
10  CONTINUE 
C***  ALL  RECORDS  USEO 
C***  PROMPT  1 

CALL  PRINT ( 'NO  UNUSED  RECORDS') 

GOTO  30 

***  FIND  DETAILS  OF  LAST  ENTRY 
20  IF ( I • EO . 1 ) GOTO  31 

READ(20'I-1)NNT, JBLK,LBLK 
NFBLKr820-LBLK 
C***  PROMPT  2 

WRITE (I OP, 2000)1, NFELK 

7000  FORMAT( '$NEXT  FREE  RECORD  ',14,'  NUMBER  OF  FPEE  BLOCKS  ', 

1  16,/ 1 HO ) 

C**»  CHOOSE  STARTING  RECORD 
C***  PROMPT  3 

30  CALL  PRINT ('DESIRED  STAFTING  RECORD  ?') 

C***  REPLY 

READ(INP,1000)IREC 
C***  ZERO  ENTRY  CAUSES  EXIT 
IF(IREC.EQ.O)GOTO  120 
IF(1REC.NE,1)G0T0  40 

C***  SET  1REC  TO  FIPS1  RECORD  IF  NONE  YET  USED 

31  IREC*1 

CALL  PRI NT ( 'FIRST  RECORD') 

NFBLKs806 

CALL  FILSET ( NFBLK ) 

NBLK«NFBLK+1 
LBLK«820-NBLK 
GOTO  45 
40  CONTINUE 

CO*  IS  DESIREL  RECORD  NON  SEQUENTIAL  ? 


IF!IRFC.GT,I)CALL  PRINT! 'SEQUENTIAL  RECORD  SELECTED  INSTEAD*) 
IFdREC.GT.I) JREC=I 

C***  IS  DESIRED  RECORD  DIFFERENT  FROM  NEXT  FREE  RECORD  ? 
lFdPEC.EO.IJGOTO  50 

C***  FIND  NUMBER  OF  FKEF  BLOCKS  LEFT  FOR  DATA 
READ!20'IREC-1  ).\NT,  JBLK.LBLK 
NFBLKS820-LBLK 
NBLKsNFBLK 

45  WRITE!I0P,201C)NBLK 

2010  FORMAT! 'SNUMBFR  OF  FREE  BLOCKS  ',I6,/1H0) 

50  CONTINUE 
JBLKsLBLK 

C»**SET  FIRST  NUMBER  TO  ZFRO  IN  ALL  RECORDS  GREATER  THAN  CHOSEN 
C***  RECORD 
NNT=0 

DO  60  J=IREC,20 
JJ=J 

WR1TE!20'JJ)NNT 
60  CONTINUE 

C ***  START  PARAMETER  ENTRY  LOOP 
70  CONTINUE 
C***  PROMPT  4 

CALL  PRINTC 'NUMBER  OF  CHANNELS , SAMPLE  TIME(HS),RUN  TIME(S)') 
C***  REPLY 

READ(INP, 1010)NCHAN,TSAMP,TPUN 
C***  TRY  AGAIN  IF  TSA^P  100  GREAT 

IF!TSAMP.GT.1280.0)CALL  PRINT! 'SAMPLE  RATE>1.28  SEC.  MAXIMUM') 
IF(TSAMP.GT.1280.0)G0  TO  70 
C***  CALCULATE  CLOCK  RATE 

CALI.  SHUFFL!TSAMP,NCOUNT,ITEN) 

C***  CHANNEL  POLARITY  SETTING 
C***  PROMPT  5 

CALL  PRINT( 'ALL  CHANNELS  SAME  POLARITY  (YES/NO)  ?') 

C***  REPLY 

READ(INPr1020)IY 

C*»*  BRANCH  IF  ALL  SAME  POLARITY 
IFdY.FO.  IYFSJGUTO  RO 
C***  PROMPT  6 

CALL  PRINT! 'ENTER  POLARITY  VALUE  FOR  EACH  CHANNEL') 

CALL  PRINT!'d«UM,2sBl)') 

C***  REPLY 

READ !INP, 1030) !IPOL!I) ,1*1 ,NCHAN) 

GOTO  100 

C***  SET  ALL  CHANNELS  TO  SAME  POLAPITY 
C**»  PROMPT  7 

80  CALL  PRINT! 'ENTER  ONE  POLARITY  VALUE  TO  BF  ASSIGNED  TO') 

CALL  PRINT!'ALL  CHANNFLS  ! 1 =UN1 , 2=BI ) ' ) 

C***  REPLY 

READ!INP,1040)IP0M 
DO  90  1*1, NCHAN 
90  IPOL! I )*IPOM 

100  CONTINUE 

C***  CALCULATE  NUMBER  OF  SAMPLES 

MNTal+IFIX! !TRUN* 1000.0 )/TS AMP) 

101  NNTaMNT 
NFBLK*JPLK+ 1 

C***  SET  UP  ADC  CONTROL  WORDS 

CALL  ADCSET!NCHAN,IPOL,ICTLWD) 

C***  SET  UP  LIST  TO  STOP  CLOCK  INTERRUPT  IF  RUN  ABORTED 
CALL  DEVICECILISI) 

C*»*  START  CLOCK 

CALL  CLKSET! NCOUNT , ITEN ) 

C***  PAUSE  READY  TO  START 
C***  PROMPT  8 

WRITE! IOP, 2020) IREC 
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PAUSE  'CR  TO  START' 

CALL  ADCCTL 
KNTsMNT-NNT 

WRITE(20'JREC)NNT,NFBLK,  JBLK  , NCOUNT , ITFN , NCH AN , IPOL 
C***  INCREMENT  RECORD  NUMBER 
IRECaIREC+1 

C***  EXIT  IF  ALL  RECORDS  ARE  USED  UP 
IF(IREC.GI.20)G0T0  110 
NFBLKsJBLK 
C***  BLOCKS  LEFT 
C***  PROMPT  9 

WRITE (IOP, 2030) 8 20- JBLK 

2030  FORMAT ('$ NUMBER  OF  FREE  BLOCKS  LEFT*  ',I6r/lH0) 

C*  *  *  OPTION  TO  EXIT 
C***  PROMPT  10 

CALL  PRINT( 'EXIT  FROM  DAT JN  (YES/NO)  ?') 

C***  REPLY 

READ(INP,1020)IY 
IF(IY.EQ.IYES)G010  120 

C***  OPTION  TO  ALTER  PARAMETERS  IN  NEXT  RECORD 
C***  PROMPT  11 

CALL  PRINT ( 'ALTER  CONVERSION  PARAMETERS  (YE5/N0)  ?') 
C***  REPLY 

READ(INP,1020)IY 
IF(IY.EQ.IYES)GOTO  70 
GOTO  101 
C***  PROMPT  12 

110  CALL  PRINT( 'ALL  RECORDS  USED') 

120  CALL  CLOSEC(JCHAN) 

CALL  IFREEC(JCHAN) 

STOP 

1000  F0RMAT(I4) 

1010  FORMATCI8#2F10,4) 

1020  FORMAT ( A2) 

1030  FORMAT (1613) 

1040  FORM AT ( 13) 

END 


C***  PROGRAM  STRP AT 

C***  THIS  PROGRAM  RECOVERS  DATA  STORED  I K  ADC. DAT  bY  DATIN  AND 
C***STORES  IT  IN  INTEGER  FORM  IN  DISC  FILE  DK 0 : h A w ACC . 0 AT  l&CATFD  ON 
C***DISC  S.A.D.  THE  INDEX  TO  THIS  DATA  IS  STUPED  BY  RECORD  NUMBER  IN 
C***BLOCKS  1-50  OF  RAwACC.DAl. 

DIMENSION  IPCL(16) , ENOS(2,20) ,SCALF(16) ,OFSET( 16) , IDAIAC 256) 
DIMENSION  IPOLb (16),SCALFB(16),OFSETB(lb) 

DIMFNSION  JSBLK (42 ) , JFBLK ( 42 ) , JFWRD ( 42 ) , NS AMP ( 42 ) 

DIMENSION  JSBLKBC42) , JFBLKBC42) ,JFwPDB(42) ,NSAMPB(42) 

COMMON  /ASV/IF10,TFil ,IF40 
DATA  IYES/'YE'/ 

IKBs5 

IOD=7 

ISECSal 

CALL  ASSIGN(8,'KB:',0,) 

C***ENTER  INPUT  RFCORD  AND  NUMBER  OF  CHANNELS 
WRITEC I0D,2030) 

READCIKB, 1000}  IR , NCHAN 
C***READ  INDEX  FILE 

CALL  ASSIGN  CIO, 'DK3 JADC.DAT', 11, 'OLD') 

DEFINE  FILL  1 0 ( 20 , 1 6 6 , U , IF 1 0 ) 

READ (  1  0  '  i  R  )  NNT.INBLK,  ILST,NCOUNT,  ITF.N  ,MCHAN,IPOL,ENDS, 

1  SCALF , OFSFT 

REWIND  10 
CALL  CLOSF(IO) 

C***TEST  FOR  WRONG  NUMBER  OF  CHANNELS 

IFCMCHAN.NE. NCHAN)  STOP  'WRONG  NUMBFR  OF  CHANNELS' 

C»**TEST  FOR  EMPTY  RECORD 

IF (NNT.EQ.O)  STOP  'EMPTY  RECORD' 

C***ENTEP  SUBJECT  NUMBER,  HOSPITAL  NUMBER  AND  TEST  NUMBER 
WR1TE(IOD,2040) 

READCIKB, 1000)  ISUBN,IHOSN 
WRITE(IOD,2050) 

READCIKB, 1010)  ITSTN 

C***OPEN  OUTPUT  FILF  AND  TEST  IF  ANY  DATA  PREVIOUSLY  STORED  ON  DKO 
CALL  ASSIGNC11 , 'DKUSRAKACC.DAT', 14, 'OLD') 

DEFINE  FILE  1 1 ( 2050 , 256 , U , IFJi  ) 

READ ( 1 1 ' 1 )  IRT 
IFCIRT.LT.O)  IRTe-IRT 
IF(lRT.EU.l)  GO  TO  in 

I.  C***IF  NO  DATA  PREVIOUSLY  STORED  ON  DKO,SF.T  VARIABLES  FOR  RECORD  1 

|  *  IRBsO  l RESULTS  IN  OUTPUT  RECORD  =-l 

|  ISECSH=3 

i  JFBLKBC ISECSB) =50  1RESULTS  IN  OUTPUT  START  BLOCK  =51 

f  GO  TO  30 

'  C***REAP  INDEX  OF  PREVIOUS  STORED  RECORD 

t  10  ISCAN=1 


20  FEADC11 'ISCAN)  IRB , ISECSB , MCHANB ,TSAMPB , ISUBNB , IHOSNB , ITSTNB  , 

1  IPOLB, SCALFB,0F5ETB, JSBLKB, JFBLK P, JFK RDB,NSAMPB 

IFCIRB.LT, 0)  GO  TO  30 
ISCAN=ISCAN+1 
GO  TO  20 

C***SFT  OUTPUT  RECORD  NUMBEP  AND  STARTING  OUTPUT  BLOCK  NUMBER 
30  IR0*IRB-1  I OUTPUT  RFC  NUM : (STORED  AS  NEGATIVE 

LBLK* JFBLKBC ISECSB)  {OUTPUT  STARTING  BLOCK  LESS  ONE 

C***OPEN  INPUT  FILE 

CALL  ASSIGN ( 40, 'DK 3* ADC. DAT ',11 , 'OLD') 

DEFINE  FILE  40(820, 256, U,1F40) 

C***INITIALIZF  INDEX  VARIABLES 


IBLKsINSLK 

JELK=LBLK 

NS=NNT 


(INPUT  BLOCK  INDEX 


50  READ(40'IBLK)  IDATA  ‘ 

IPLKalBljK  +  l 

C***WRITL  A  BLOCK  UF  OUTPUT  DATA 
JBLK  *JBLK+ 1 
WRITE(1  1  'JBLK)  IDATA 
NSsNS-lf 

IF(NS.GT,16)  GO  TO  50 
C***READ  LAST  INPUT  BLOCK 

READ(40'IBLK)  IDATA 

C***COMPUTE  NUMBER  OF  SAMPLES  IN  LAST  BLOCK  TO  BE  ZEROED 
J=NS*lfe+l 

C***FILL  REMAINDEP  OF  LAST  OUTPUT  BLOCK  WITH  ZERO 
IF{J,GT.256)  GO  TO  90 
DO  80  Jlsj,256 
80  IDATA(JI)=0 

C***WPITE  LAST  OUTPUT  BLOCK 
90  JBLKsJBLK+1 

WRITE(ll'JBLK)  IDATA 

C***STORE  INDEXING  PARAMETERS  FOR  THIS  SECTION 
JSBLK (l)sLBLK+l 
JFBLK (1) sJBL  K 
JFKRD(1)=NS*16 
KSAMPClJsNNT 
CALL  CL0SE(40) 

C***DISPLAY  PREVIOUS  AND  CURRENT  RECORD  INFO  ON  TX  SCREEN 
130  IFCIRT.NE.l)  GO  TO  140 

WRITE(IOD,2000)  -IRB , ISUBNB, IHOSNB , ITSTNB 
WRITE(ICJD,2010)  ISECSB,  JSBLKB(l)  ,JFBLKB( ISECSB) 

140  WRITE(IGD,2000)  -IRO , ISUBN , I HOSN , 1TSTN 

KR1TECIOD,2010)  ISECS , JSBLK ( 1 ) , JFBLK ( ISFCS ) 

C***COMPUTE  AND  COMPARE  TOTAL  DATA  SAMPLES  TO  TOTAL  STORED  SAMPLES 
L0T=(JFBLKC1)-JSBIKC1))*16+JFWRDC1)/16 
WRITE(IOD,2090)  LOT,NSAMP(l) 

C***IF  DATA  LOOKS  GOOD-RESTORE  PREVIOUS  RECORD  INDEX  WITH  POSITIVE 
C***RECORD  NUMBER  AND  STORE  CURRENT  RECORD  INDEX  WITH  NEGATIVE 
C4**REC0RD  NUMBER 

WRITE(I0D,2070) 

READ(IKB,1020)  IY 
IFCIY.NE.IYES)  CALL  CLOSE(ll) 

IFCIY.NE.IYES)  STOP  'DATA  TRANSFER  NOT  COMPLETED' 

IF(IPT.NE.l)  GO  TO  170 

IRBe-IRB 

WRITE (1 1 'IRB)  IRB, ISECSB, MCH AN B,TSAMPB, ISUBNB, IHOSNB,ITSTNB 
1  IPOLB, SCALFB,OFS£1B, JSBLK B, JFBLKB, JFWRDB,N5AMPB 

C***LOAD  UNUSED  SFCTION  INDEX  ARRAY  POSITIONS  WITH  ZERO 
170  DO  180  1*2,42 

JSBLK (13*0 
JFBLK ( I ) *0 
JFWRD ( I ) *0 
180  NSAMP(I )s0 

C***COMPUTE  SAMPLE  TIME  IN  MILLISECS 
TSAMP«FLOATC  NCOUNT ) 

T5AHP«TSAMP*10,0**(ITEN-3) 

WRITE(tl'-IRO)  I RO, ISECS, MCHAN,T5 AMP, ISUBN, I HOSN , ITSTN , IPOL 
1  SCALF,OFSET, JSBLK, JFBLK, JFWRD, NSAMP 

CALL  CLOSE(ll) 

C***SET  PRINTED  OUTPUT  FLAG 
WRITE(IOD,208O) 

READ ( i KB , 1020 )  IY1 

1F( IY 1 , NE, I YES)  GO  TO  200 

WRITE(8,2020) 

WRITE (8,2000)  -IRO , ISUBN , IHOSN  ,  ITSTN 
WRITE(8 ,2010)  ISECS, JSBLK (1), JFBLK (ISECS) 

200  CALL  EXIT 

1000  FORMAT ( 217 ) 

1010  F0RMATCX4) 


1020  FORMAT ( A2 ) 

2000  FORMAT C 1H  , 'RECORD  N UMj', 14, 5X, 'SUBJECT  NJh*',I4,5X, 

1  'HOSP  NUM:', 16, 5X, 'TEST  NUM:', 14) 

2010  FORMAT! 1H  ,10X,I3,'  SECTIONS  OF  DAT A 5X , 'INITIAL  BLOCK 
1  14, 5X, 'FINAL  BLOCK  1 ' , 1 4/ ) 

2020  FORMAT ( 1 H  ,19X, 'STORED  ON  S.A.D.') 

2030  F0RMATC20X, 'DATA  STORAGE  ON  S.A.D. '/10X, 

1  'ENTER  INPUT  RECORD  NUM  AND  NUM  OF  CHANNELS') 

2040  FORMATdOX, 'ENTER  SUBJECT  NUM  AND  HOSPITAL  NUM') 

2050  FORMATdOX, 'ENTER  TEST  NUMBER') 

2060  FORMATdOX, 'ENTER  SFCTION  NUMBER(NEGATIVE  TO  STOP)') 

2070  FORMATdOX, 'DOES  IT  LOOK  OK?  (YES/NO)') 

2080  FORM AT C 1  OX , 'DO  YOU  WANT  PRINTED  OUTPUT?  (YES/NO)') 

2090  FORMAT(5X,I6,'  STOKED  SAMPLES ', 5X , 16 , '  DATA  SAMPLES') 
END 
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C***  PROGRAM  DATCON 

C***  THIS  PROGRAM  RECOVERS  INTEGER  DATA  STORFB  IN  DPlSRAWACC.DAT 
C***ON  DISC  S.A.D.,  CONVERTS  IT  TO  REAL  NUMPEPS  ,  AND  STORES  IT  ON 
C***SY;CODATA,DAT;  INDEX  INFORMATION  IS  STORED  ON  S Y : INDACC . DA T . 

C*** 


C ***  TASK  BUILD  AS;  DATCONsDATCON  ,  [  1  ,  1 3  F4POTS/I.B 

C***  UNITS=14  MAXBUFsS12 

DIMENSION  IDATA!256)  ,  I  POL ( 1 6 ) ,SCALF ( 1 6 ) ,OFSET! 16) , JSBLK(42) 
DIMENSION  JFBLK42)  ,JFWRD!42)  ,NSAKP!42)  ,CQDATA!  16,6) 
DIMENSION  IPOS(3)  ,IH(3) ,ISUb(3) , IBOSC3) , ITST! 3) , ISBL( 3 ) 
DIMENSION  IFBL(3)#KEND(3)#TSAMPL(3),DATA(16) 

LOGICAL*l  IDATE(9),ITIME!8) 

COMMON  /ASV/IF11,IF12,IF14 
DATA  IYES/'YE'/ 

IKB*5 

10D=5 


CALL  ASSIGN! 8, 'SY:PRNTIT,LST;i') 

CALL  FDBSET !  8  , 'NEW ' ) 

C2 1 23*27 2 . 552 8 
C13*38. 93611 

C***ENIER  INPUT  RECORD  NUMBER 

10  NR  I TE ( I OD , 2000 ) 

FEAD(IKB,1000)  IRA 
C***READ  INPUT  INDEXES 

CALL  ASSIGN ! 1 1 , 'DPI  s [1 67 , 1 5) RAWACC . DAT ;  1  '  ) 

DEFINE  FILE  11 ( 4250 , 256 , U , 1 F 1 1  ) 

CALL  FDBSETU1, 'READONLY') 

READ! 11 'IRA)  IRB , I SECS , MCH AN , TSAMP , 1SUBN , IHOSN , ITSTN , IPOL, 
1  SCALF,OFSET,JSBLK, JFBLK , JFWRD,NSAMp 

C***DISPLAY  ON  TX  SCREEN  RECORD  NUM, SUBJECT  NUM,H0SP  NUM, TEST  NUM 
IKIRB.LT. 0)  IRbs-IRB 
WRITE! ICD, 20 10)  IRB.ISUBN, IHOSN, ITSTN 
C***IF  NOT  CORRECT  RECORD,  THEN  RESTART 
WRITE! 100,2020) 

READ(IKB,1010)  IY 
IF(IY.NE.IYES)  CALL  CLOSE!ll) 

IF ( I Y . NE. I YES)  GO  TO  10 
C***OPEN  OUTPUT  FILES 

CALL  ASSIGN!  1 2, 'SYJCODATA.  PATH') 

CALL  FDBSET! 12, 'NEW') 

DEFINE  FILE  1 2 C 200 , 2 56 , U , IF1 2  ) 

C***INITIALIZE  INDEXING  VARIABLES 


J*0 

K*1 

L*0 

1NBLK* JSBLK ! 1 ) 

K I  *  1 
ISBLKsl 
IFBLK*ISBLK 
LOTsO 

DU  20  IS*1 , TSECS 
20  L0T*L0T+NSAMP!1S) 

C***READ  INITIAL  BLOCK  OF  IN 
READ ( 1 1 '1NBLK )  IDATA 


1  CHANNEL  NUMBER 
1  INPUT  DATA  SAMPLE  INDEX 
IINPUT  DATA  WORD  INDEX 
1INPUT  DATA  STARTING  BLOCK 
JOUTPUT  DATA  SAMPLE  INDEX 
10UTPUT  DATA  STARTING  BLOCK 
•OUTPUT  BLOCK  INDEX 


l NUM  OF  SAMPLES 

DATA 


50  JsJ+1 

IF! J.LE.MCHAN)  GO  TO  120 

C***WHEN  ALL  CHANNELS  CF  ONE  SAMPLE  CONVERTED  , COMPUTE  CODATA 
CODATA  !KI,1)b-DATA(U)*C21  23 
CODATA(KI,2)b-(DATA(9)-DATA(12))*C13 
CODATA !KI, 3 )b-DATA! 10)*C2123 
C0DATA(KI,4)*-(DATA(9)+DATA( 12) )*C13 
CODATA (KI ,5)*!DATA ( 1 )+DATA (2))*0,5 

CODATA (KI,6)*(DATA(3)+DATA (4)  )*0,5  ,  w  . 


CODA  T  A  !KI,7)=!DATA(5)+DATA!b))*0.5 
CODATA (KI ,8) =(DATA!7)4DATA(8))*0.5 
C***R£SET  CHANNEL  INDEX;  INCREMENT  SAMPLE  AND  OUTPUT  ARRAY  INDEXES 

no  j*i 

K*K*  1 
KlsKI+1 

C***TEST  FOR  END  OF  THIS  SFCTION  OF  INPUT  DATA 
IF(K.GT.LOT)  GO  TO  150 

C*4*INCREMENT  INPUT  DATA  WORD  INDEX  AND  TEST  FOR  END  OF  BLOCK 
120  LsL+1 

IFIL.LE.256)  GO  TO  130 

C***RESET  WORD  INDEX  AND  INCREMENT  BLOCK  NUMBER 

L= 1 

INBLKsINBLK+1 

C444READ  ANOTHER  BLOCK  OF  INPUT  DATA 
READ !  1 1  ' 1 NBLK )  IDATA 

C***IF  PEAL  DATA  ARRAY  FULL, WRITE  TO  DISC 
130  IF (KI.1E. 16)  GO  TO  140 

WRITE(12'IFBLK)  ! { COD AT A ( K I L , J L ) , 1 L= 1 , 8 ) , KI L*1 , 1 6 ) 
C***RESET  ARRAY  INDEX  AND  INCREMENT  OUTPUT  BLOCK  INDEX 
K I  s  1 

IFBLKsI FBLK+ 1 

C***CON VERT  SINGLE  INTEGER  SAMPLE  TO  SCALED, OFSET  REAL  DATA (G~S) 
140  DATA (U ) =F LOAT C ID AT A C L ) - 5 1 2* C I POL ( J ) - 1 ) ) *SC ALF ( J ) /2 04 . 8 048 

1  -OFSET(J) 

GO  TO  50 

C***STORE  ZERO  IN  REMAINDER  OF  LAST  CODATA  BLOCK 
C**4 AND  WRITE  LAST  BLOCK  TO  DISC  FILE 
150  IFCKI.GT.16)  GO  TO  170 

DP  160  KA=KI,16 
DO  160  IL=1,8 
160  CODATA!KA,1L)=0.0 

170  WR1TE(12'IFBLK)  ( ( CODATA ( KIL , I L ) , I L*1 , 8 ) , K IL*1 , 16 ) 

C***CLOSE  OPEN  FILES 

CALL  CLOSE ( 12) 

CALL  CLOSE (11) 

C***COMPUTE  INDEXING  INFORMATION 
DO  180  Jsl,3 
IPOS ( 1 ) *0 
IR(l)sIRB 
ISUBCI)*ISUhN 
IHOS ( I )*IHOSN 
IT5TU  )sITSTN 
180  TSAMPL(I)eTSAMP 

IF ( I  SECS . NE • 3 )  GO  TO  200 
DO  190  1*1,3 

ISBL(I)*JSBLK(I)-JSBLK(1)+1 
IFBL(I)*JFBLK(I)-JSRLK(1 )+l 
190  KEND(I)*JFWRD(l)/2 

GO  TO  220 

200  IF(ISECS.NE.l)  STOP  'NOT  1  OR  3  DATA  SECTIONS' 

I5BL( 1 )*ISBLK 
IFBL( 1 )*IFBLK 
KEND(l)sCKI-l)*8 
DO  210  1*2,3 
X5BL! X )*0 
IFBL ( I ) *0 
210  KENDCI )«0 

C***INSURE  CORRECT  NUMBER  OF  SAMPLES  STORED  IN  CODATA 
220  KENDK*!KI-1)*R 

NSAMP2*(IFBLK-ISBLK)*164KENDK/8 
WR1TE( 100,2030}  NSAMP2,L0T 

WRITE (100,2010)  1R ( 1 ) , ISUBfl ) , IHOS C J) , ITSTC1 ) 

DO  230  1*1 , ISECS 

230  WRITE(I 00,2070)  I , ISBL ( I ) , I FBL ( I ) , KEND ( I ) 

0  WRITE! 100,2' 10) 


FI  5 


D  READ (IKbflOlO)  1 Y 1 

D  IFt IY1.NE.1YES)  GO  TO  250 

C***STORE  INDEXING  INFORMATION 

CALL  ASSIGN ( 14, 'SY I INDACC.DAT f  1  ') 

CALL  FPHSETt 14, 'NEW') 

DEFINE  FILE  1 4 ( 1 , 30 , U , IF  1 4  ) 

WRITEt J4'l )  IPOS, IR,ISUB,1H0S,ITST,ISBL,IFBL,KEND,TSAMPL 
CALL  CLOSE ( 14) 

C***SET  PRINTED  OUTPUT  FLAG 

I Y2=I YES  'SET  TO  ALWAYS  PRINT 

IFUY2.NE.IYLS)  GO  TO  250 
CALL  DATE(IDAIL) 

CALL  TIME(ITIME) 

WRI TE  t  8  »  2080 )  IDATE,ITIME 
WRITE  t  8 , 2060 ) 

w  R ITE ( 8 , 20 1 C )  1P(1 ) ,ISUB(1 ) ,IHOS(i ) ,ITST(1) 

DO  240  1=1 , ISECS 

240  wFITE(P,2070)  I , ISBL (I ) , IFBL ( I ) , KEND ( 1 ) 

CALL  CLOSE 1 8  ) 

250  CALL  EXIT 

1000  FORMAT 1 14  ) 

1010  F0R*AT(A2) 

2000  FGRMAT(20X, 'STORE  DATA  IN  CODATA'/lOX, 

1  'ENTER  INPUT  RECORD  NUMBER ' ) 

2010  FORMAT ( 1 H  , 'RECORD  NUM J ' , 1 3 , 5X  ,  'SUB JECT  NUM|',I3,5X, 

1  'HOSP  NUM j ',16, 5X, 'TEST  NUM|',I6) 

2020  FORM AT ( 1  OX , ' IS  THIS  CORRECT  RECORD?  (YES/NO)') 

2030  FORMATt 10X, 'CONVERTFD', 16, X, 'SAMPLES  STORED' , 16 , X , 

1  'SAMPLES') 

2040  FORMATt 10X, 'DOES  IT  LOOK  OK?  (YES/NO)') 

2050  FORMATtlOX, 'DO  YOU  WANT  PRINTED  OUTPUT?  (YES/NO)') 

2060  FORMATt 1H  ,19X,'DATA  CONVERTED  AND  STORED  IN  SYlCODATA  FOR') 
2070  FORMATt 1 H  , 'SECTION :', 12 , 2X , 'FIRST  BLOCK t ', 14 , 2X , 

1  'LAST  BLOCK:', 14, 2X, 'LAST  WORD:', 14) 

2080  FORMATt  1 H  ,  1  OX , 'PROCESSED  ON  ',9A1,2X,'AT  %8A1) 

END 
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C***  PROGRAM  STAuAT 

C*»*  THIS  PROGRAM  RECOVERS  INTEGER  DATA  STORED  IN  DPI  :  R  A**  ACC.  DAT 
C***ON  DISC  S.A.D.  AND  CONVERTS  IT  TO  REAL  NUMBERS (IN  G-S). 
^♦♦STATISTICS  FOR  EACH  SECTION  OF  DATA  ARE  COMPUTED  AND  STORED 
C***ON  SYtCOSTAT.DAT. 

C*** 

C**»  TASK  BUILD  AS:  ST ADATsSTAPAI , [ 1 , 1] F4POTS/LB 

C***  UNITSsl3  M AXBUF=5 1 2 

DIMENSION  I DATA (256) ,IPOL( 16) , SC ALF ( 1 6 ) , OFSET ( 1 6 ) , JSBLK(42) 
DIMENSION  JFBLK(42) ,  JF  WRD (  42) ,NSAMP(42) ,CODATA( 16,6) 
DIMENSION  DATA(16)  ,S1'ATS(6,16) 

COMMON  / ASV/IF1 1 , 1F1 3 
DATA  IYES/'YE'/ 

IKBa5 

I0D*5 

CALL  ASSIGN(8,'SY|PRNTIT.LST;1',16) 

CALL  FPBSETC8, 'APPEND') 

C2123=272.5528 
C13=38. 93611 

C***ENTER  INPUT  RECORD  NUMBER 
10  <*RITE(IOD,2000) 

READdKR,  1000)  IF 
C***READ  INPUT  INDEXES 

CALL  ASS1GNC11 , 'DPI : Cl 67 , 15) RAWACC.DAT; 1 ', 22) 

DEFINE  FILE  1 1  ( 4 250 , 256 , U , IF  1 1  ) 

READ ( 1 1 ' IR )  IRB,1S£CS,MCHAN,TSAMP,ISUBN,IHDSN,ITSTN,IP0L, 

1  SCALF,OFSET,JSBLK, JFBLK , JFWRD , NS AMP 

C***PISPLAY  ON  TX  SCREEN  RECORD  NUM, SUBJECT  NUM,HOSP  NUM, TEST  NUM 
IF(IRB.LT.O)  IRBa-IRB 

WRITE (1 00 ,2010)  IRB,ISUBN,IHOSNrITSTN 
C***IF  NOT  CORRECT  RECORD ,  THEN  RESTART 
WRITECIOD,2020) 

RF.ADCIKB,1010)  IY 
IF(IY.NE.IYFS)  CALL  CLOSE(U) 

IF(IY.NF.IYES)  GO  TO  JO 
C***OPEN  OUTPUT  FILE 

CALL  ASSIGN ( 13, 'SYlCOSTAT. DAT ;l ',16) 

CALL  FDBSET(13,'NEW') 

DEFINE  FILE  1 3 ( 3 , 1 9 2 , U , IF  1 3 ) 

C***5ET  INDEXES  FOR  CONVERSION  AND  STATISTICS  COMPUTATION  LOOP 
IS*1  1  SECTION  NUMBER 

JsO  ‘CHANNEL  NUMBER 

L*0  1INPUT  DATA  WORD  INDEX 

INBLK*JSBLK(IS)  1INPUT  DATA  STAKTING  BLOCK 

NSAMP2=0 

C***READ  INITIAL  BLOCK  OF  INPUT  DATA 
READ  C 1 1 ' I NBLK )  IDATA 

30  K*1  1SECTI0N  SAMPLE  INDEX 

LOT*NS A MP ( IS)  1  NUM  SAMPLES  IN  THIS  SECTION 

PLOTsFLOATCLOT) 

50  J*J+1 

IF(J.LE.MCHAN)  GO  TO  120 

C***WHEN  ALL  CHANNELS  OF  ONF  SAMPLE  CONVERTED  TO  G-S, COMPUTE 
C***  AND  STORE  STATISTICS  SUMMATIONS 

C***ON  FIRST  SAMPLE  OF  EACH  SECTION , STORE  INITIAL  VALUES 
60  IF(K.NE.l)  GO  TO  90 

DO  80  JSsl,I6 
DO  70  1K*1,5 

70  STATS(IK,JS)«DATA(JS) 

80  STATSC6,JS)*DATA(JS)»DATA(JS)  1  TEMP  STORE  SUMMATION  X**2 

GO  TO  110 

C**«STORE  SUMMATION  AND  MAX f MIN  FOR  COMPUTING  STATISTICS 


ST  ATS d , JS)rBTATS( 1 ,  JS ) +DATA ( JS ) 
5TATS(6,JS)=STATS(6,JS)4-DATA(JS)*PA7A(JS) 

IF l DATA ( J5) .GT.STATS(2, JS) )  ST ATS C 2 , JS ) =D AT A ( JS ) 

100  lFCDATA(JS) ,LT.STATS( 3  ,  JS  ) )  STATS ( 3 , JS ) =DATA ( JS ) 

C***RESET  CHANNEL  INDEX  AND  INCREMENT  SAMPLE  INDEX 
110  J=1 

KsK+1 

C***TEST  FOR  END  OF  THIS  SECTION  OF  INPUT  DATA 
IF(K.GT.LOT)  GO  TO  190 

C***INCREMKNT  INPUT  DATA  WORD  INDEX  AND  TEST  FOR  END  OF  BLOCK 
120  L=L+ 1 

IFCL.LF.256)  GU  TO  140 

C***RFSFT  WORD  INDEX  AND  INCREMENT  BLOCK  NUMBER 
Lai 

INBLK=INBLK+1 

C***READ  ANOTHER  BLOCK  OF  INPUT  DATA 
RLAP(li'INBLK)  IDATA 

C***CONVERT  SINGLE  INTEGER  SAMPLE  TO  SCALFP,OFSET  REAL  DATA(G-S) 

140  DATA (J)=FLOATC IDATA ( L) -5 1 2* (I POL ( J )-l ) )*SCALF(J)/204.8048 

1  -OFSET(J) 

GO  TO  50 

C***COMPUTE  STATISTICS  AND  STORE  ON  FILE  COSTAT.DAT 
190  DO  200  JS*1,16 

ST  ATS (1  ,JS)sSTATS(l , JSJ/RLOT 

STATS(4, JS)=(STATS(6, JS)-STATS(1 , JS)*STATS( 1 , JS) 

1  *RLOT ) /RLOT 

200  STATS (5, JS ) aSQRT ( ST ATS ( 4 , JS)  ) 

DO  210  JS*1,7,2 

STATS(6,JS)a(STATS(l , JS)+STATS(1 , JS+1))*0.5 
210  STATS(6,JS+l)sSTATS(6,JS) 

KRITE(13'IS)  C (STATS (IK, JS) ,  IKsl ,6) , JS=1 ,16) 

C***INCRFVENT  SECTION  NUMBER  AND  IF  ALL  SECTIONS  NOT  COMPLETED  LOOP 
ISrIS+1 
JsO 

NSAMP2*NSAMP2+K-1 
IF(IS.LE.ISECS)  GO  TO  30 
C**»CLOSE  INPUT  FILE 

CALL  CLOSE(ll) 

C***INSURE  CORRECT  NUMBER  OF  SAMPLES  USED 
NSAMPRsO 


DO  220  1*1 , ISECS 
220  NSAMPk=NSAMPR+NSAMP(I ) 

WRITEdOD,  2030)  NSA*P2  ,  NSAMPR 
D  WRITEdOD, 2040) 

D  RF.ADdKB,  1010)  IY1 

D  IFdYl.NE.IYE5)  GO  TO  300 

C***SET  PRINTED  OUTPUT  FLAG 
I Y2*I YES 

IFCIY2.NE.IYES)  GO  TO  250 
WRITE ( 8 , 2060 ) 

WR ITE( 8 ,2010)  IRB,ISUBN,IHOSN,ITSTN 
C***PRINT  STATISTICS  IF  FLAG  SET 

IY3sIYES  {SET  TO  ALWAYS 

IFCIY3.NE.IYES)  Gn  TO  300 
DO  260  1SEC*1, ISECS 

READ(13'ISEC)  ( (STATS (ISA , JS) , ISA*1 , 6 ) , JSa 
ISEC 

JSBLKdSEC),JFBLKd5EC),JFWRD(ISEC) 


ISFT  TO  ALWAYS  PRINT 


PRINT 


16) 


WRITE (8,2080) 
WRITE( 8 ,2200) 
WRITEC  6 ,2090) 
WRITE! 8 ,2110) 
WRITE ( 8 , 21 20 ) 
WRITE (8,2130) 
WRITEC8 ,2140) 
WRITE ( 8 , 2 1 50 ) 
WRITEC8 ,2160) 


(STATSC1 ,1) ,1*1 ,8) 
(STAIS(2,D  ,1*1 ,8) 
CSTAT5(3,I),I*1,8) 
(STATS(4,I),I*1,8) 
(STATS (5, I), 1*1, 8) 
( 


WRITE! 8, 21 10)  (STATS C  1,1)  ,1  =  9,16) 

WRITE (6, 2 120)  (STATS! 2, I), 1=9, 16) 

WR1T£(B ,21 30)  ( STATS ( 3 , I ) , 1  =  9 , 1 6  ) 

WRITE (8 ,2140)  ( ST ATS ( 4, 1 ) , 1=9 , 16) 

WRITE (8, 21 50)  (STATS (5, I), 1=9, 16) 

260  WRITE (6 ,2160)  ( STATS ( 6 , I ) , 1=9 , 1 6 ) 

CALL  CL0SE(8) 

300  CALI  CLOSE (13) 

250  CALL  EXIT 

1000  FORMAT ( 14 ) 

1010  FORMAT ( A2) 

2000  FORMAT (20X, 'DATA  STATISTICS  COMPUTING'/l OX , 

1  'ENTER  INPUT  RECORD  NUMBER ' ) 

2010  FORMAT ( 1H  , 'RECORD  HUM S ' , 1 3 , 5X , 'SUB JECT  NUMt',I3,5X, 

1  'BOSP  NUM:',I6,5X,'TEST  NUMj',16/) 

2020  FORMAT(10X,'IS  THIS  CORRECT  RECORD?  (VES/NQ)') 

2030  FORMATdOX, 'CONVERTED', 16, X, 'SAMPLES  STORED' ,  J  b  , 

1  'SAMPLES') 

2040  FORMATdOX, 'DOES  IT  LOOK  OK?  (  YF.5/ND)  ' ) 

2050  FORMATdOX, 'DO  YOU  WANT  PRINTED  OUTPUT?  (VES/NO)') 

2060  FORMAT ( 1 H  ,19X, 

1  'STATISTICS  COMPUTED  AND  STORE  IN  SYiCUSTAT  FOR') 

20R0  FORMAT! 1H  , 1 5X , 'STA TISTICS  FOR  SECTION', 13) 

2090  FORMAT(llX,'CHd)',9X,'CH(2)',9X,'CH(3)',9X,'CH(4)',9X, 

1  'CH!5) ',9X, 'CH(6) ',9X,'CN(7) ',9X, 'CH(fc)') 

2100  F0RMATdlX,'CH(9)',fcX,'CH(lP)',8X,'CHdl)',8X,'CHO2)',8X, 

1  'CH(13)',8X,'CH(14)',8X,'CH(15)',8X,'CHd6)') 

2110  FORMAT(2X,'MEAN',2X,8G14,7) 

2120  FORMAT(2X,'MAX',3X,8G14,7) 

2130  F0RMAT(2X,'MIN',3X,6G14,7) 

2140  F0RMAT(2X, ' VAR ' , 3X , RG1 4, 7 ) 

2150  F0RMAT(2X,'5TD  DV',RG14,7) 

2160  FORMAT(2X,'PMV',3X,8G14.7) 

2200  FORMAT! lh  , 'FIRST  BLOCK  s', 14 , 2X , 'LAST  BLOCK S ', 14 , 2X  , 

1  'LAST  WORDS', 14) 

2220  FORMATdOX, 'DO  YOU  WANT  STATISTICS  PRINTED?  (YES/NO)') 

END 


C***  PROGRAM  FILDAT 

C  +  +  *  THIS  PROGRAM  FILTERS  DATA  IK  SYjCUlATA.DAT  USING  AN  8TH 

C***ORDER  RECURSIVE  BUTTER wORTH  FILTER.  THE  DATA  IN  SYjCODATA.DAT 
C***IS  REPLACED  BY  THE  FILTERED  DATA. 

C ***  NOTES  ONLY  DATA  IN  CODATA(KI,l  TO  3)  ARRAY  POSITIONS  ARE  FILTERED 

C*»* 

C***  TASK  BUILD  AS  FILDAT=FILDAT , BNDP AS , [ 1 , 1 ) F4P0TS/LB 

C***  UNITS=14  MAXBUF*512 

DIMENSION  CODATA (16,B),5IDATA(3200),IPOS(3)»IR(3),ISUB{3) 
DIMENSION  IH05 (  3  )  » ITST ( 3 ) , I SBL ( 3 ) , I FBL ( 3 ) , KEND ( 3 ) , TS AMP ( 3 ) 

COMMON  / ASV / IF  1 2  » IF  1 4 
DATA  IYES/'YE'/ 

CALL  ASSIGN(8, 'S Y J PR NT IT . LST | 1 ') 

CALL  FDBSEK8, 'APPEND') 

IKB=5 

IOD*5 

C***WR1TE  PROGRAM  TITLE  ON  TERMINAL  SCREEN 
WRITE(I0D,2000) 

2000  FORMATC20X, 'CODATA  FILTERING') 

1000  FORM AT( 14) 

C***ASSIGN  AND  DEFINE  INPUT/OUTPUT  FILE 

CALL  ASSIGN (12, 'SY : CODATA . DATM ') 

CALL  FDbSFT(12,'GLD') 

DEFINE  FILE  1 2 ( 200 , 2 56 , U , IF 1 2 ) 

C***REA.D  POINTER  INDEX  FILE 

CALL  ASSIGN (14, 'SYSINDACC.DAT; 1 ') 

CALL  FDBSEK14, 'OLD') 

DEFINE  FILE  1 4 ( 1 , 30 , U , IF 1 4 ) 

RKAD(14'1)  IPOS, IR, ISUB, IHOS, ITST, I SBL, IFbL, KEND, TSAMP 
CALL  CLOSE(14) 

C***ENTER  LOWER  AND  UPPER  BANDPASS  FREQUENCIES 

FClsO.50  | LOwER  SET  TO  0.50  HZ 

FC2=1 0 . 0  ‘UPPER  SET  TO  10.0  HZ 

C***SET  INITIAL  INDEX  VALUES 
IBLKsISBL(l) 

ILSBLKslFBL(l) 

KENDITsKEND(l) 

IF(IFBLO).NE.O)  ILSBLKbIFBL ( 3 ) 

IF(KEND(3).NE.0)  K ENDITsKEND ( 3 ) 

LS=1  6 

LOT=LS*(lLSBLK-ISBL(l ) )+KENDIT/P 
FS=1000.0/TSAMP(1) 

11  =  1 

C**»LOAD  ALL  SAMPLES  OF  CODATA(-,l)  INTO  SIPATA 
10  RE  AD ( 1 2 ' IBLK )  ( (CODATA ( K I , I ) , 1  =  1 , 8 ) , KI  =  1 , LS ) 

IBLK*IBLK+1 
DO  20  KB=1 ,LS 

IND*(IBLK-ISBL(1 )-l)*16+KB 
20  SIDATA(IND)=CODATA(KB,II) 

IF(IBLK.EQ.ILSBLK)  LS=KENDIT/8 
IF(IBLK.GT.ILSBLK)  GO  TO  40 
GO  TO  10 

C***INCREMFNT  ARRAY  POSITION  AND  IF  LAST  POSTION  FILTERED  EXIT  LOOP 
30  11=11+1 

IFCII.GT.3)  GO  TO  90 

C***FILTER  ONE  ARRAY  POSITION  OF  DATA ( STOPFD  IN  SIDATA) 

40  CALL  PNDPAS(SIDATA,L0T,FC1 ,FC2,FS) 

C***RESET  BLOCK  AND  WORD  INDEXES 
1BLK=ISBL(1) 

LS  =  16 

C**«RELOAD  CODATA  TO  REPLACE  FILTERED  ARRAY  POSITION  AND  TO 


C***LOAD  SIDATA  WITH  NEXT  ARRAY  POSITION  TO  BE  FILTERED 
50  READ(12'IBLK)  ( (CODATA(KI#I) ,1=1 ,8) ,KI*1 ,L6) 


lOBLKsIPLK 
IBLKsIBLK+1 
DO  60  KB*1,LS 
INDs(IObLK-ISBL( 1 ) )*16*KB 
C***LOAD  FILTERED  DATA  INTO  CODATA 
CODATA (KB, II) =SIDATA(IND) 

I F ( I I . GE «  3  )  GO  TO  60 

C***L0AD  NEXT  ARK AY  POSITION  TO  BE  FILTERED  INTO  SIDATA 
SIDATA(INP)=CQDATA(KB>II'fl  ) 

60  CONTINUE 

C**»WRITE  FILTERED  DATA  TO  DISC  FILE 

WRITE (12'IOBLK)  ( (CODATACKI ,1) ,I*J ,8)  ,KI*1  ,LS> 

C***IF  ON  LAST  BLOCK, REDUCE  LS  TO  LAST  WORD 
IF(IRLK.EQ.ILSBLK)  LS=KENDIT/8 
C*»*TEST  FOR  END  OF  INPUT  DATA 

IF(IBLK.GT.ILSBLK)  GO  TO  30 
GO  TO  50 

C***CLOSE  OPEN  FILE 
90  CALL  CLOSE (12) 

C***WRITE  ADJUSTMENT  INFO  ON  TERMINAL  SCRFEN 

WRITE(I0D,2030) 

2030  FORMAT! 10X, 'CODATA  FILTERING  COMPLETED  ON*') 

WRIT E(tOD, 2060)  I P  {  1  ) , ISU B ( 1 ) , IHOS C 1 ) , II ST ( 1 ) , IPOS ( 1 ) 

2060  FORMAT ( 1 H  , 'RECORD  NUM : ' , I  3 , 5X , 'SUB JECT  NUM:',I3,5X, 

1  'HOSP  NUM*',I6,5X, 'TEST  NUM : ' , 1 3 , 5X , 'POSITION X ' , 14 ) 
WR1IE(IOD,2070)  FC1,FC2 

2070  FORMATdOX, 'BANDPASS  FRFQUENJES  =',F9.2,'  T0',F9,2,'  HZ') 

KENDRs(Kl-l )*P 

WRITE(I0D,2110)  ISBL( 1 ) , 10BLK ,KENDR ,LOT 
C***SET  PRINTED  OUTPUT  FLAG 

IYlsIYES  !5ET  TO  ALWAYS  PRINT 

IF(IYl.NE.IYES)  GO  TO  100 
WHITE  CP, 20 30) 

WRITE (P,20b0)  IR(1),I5UB(1),IH0SC1),ITST(1),IP0S(1) 

WRITE  C  8 , 207  0 )  FC1,FC2 

WRITE (P, 21 10)  ISBLC 1 ) , IOBLK , KENDR , LOT 
2110  FORMAT ( 1 H  , 'FIRST  BLOCK S ', 1 4 , 2X , 'LAST  BLOCK 14 , 2X , 

1  'LAST  WORDS', 14, 2X,'NUM.  OF  SAMPLES: 14) 

CALL  CLOSE ( P ) 

CALL  EXIT 
END 


100 
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SUBROUTINE'  BNDPAS  (  ARRAY  ,  N  ,  FI  ,  F2  ,  FS  ) 

C***AN  8TH  ORDER  BUTTFRWORTH  FILTER  WHICH  PASSES  FREQUENCIES  BETWEEN 
C***F1  AND  F2  HZ  IS  APPLIED  IN  BOTH  DIRECTIONS  TO  REMOVE  PHASE 
C***SHIFTS.  THE  DATA  SAMPLING  FREQUENCE  IS  "FS"  HZ,  AND  THE  NUMBER 
C***OF  DATA  POINTS  IS  N,  THIS  VERSION  DOES  NOT  EXTEND  ARRAY  SIZE 
C***OR  REMOVE  TRENDS, 

C***IF  FREQUENCY  F2  IS  GREATER  THAN  OR  EQUAL  TO  HALF  THE 
C***SAMPLING  FREQUENCY,  THE  DATA  IS  NOT  FILTERED, 

DIMENSION  ARRAY(l) 

DOUBLE  PRECISION  TEMP ( 1 0 ) , AFI LT ( 9 ) , XPI , XL1 , XL2 , CT , W A 1 , W A2 , N  , 
1  A,B,A0,A1,A2,A3,S0,S1 , S2 , S3 , S4 , S5 ,S6 , S7 , 58 , DS 

IF(F2,GE,FS/2,0)  GO  TO  120 
XPI*3. 1415926535897 
XL1*XPI*F1/FS 
XL2sXPI*F2/FS 

CTsDCOS(XLl+XL2)/DCOS(XLl-XL2) 

DS*DSIN(2,0*XL1) 

IF(DS.LT.l.OE-lO)  DS=l,OE+10 
WAls(CT-DC0S(2.0*XLl) }/DS 
WA2=CCT-DC0SC2.0*XL2) )/DSIN(2.0*XL2) 

WzABS ( WAl ) 

IF(W,LT,ABS(WA2))  WsABS(WA2) 

A=DSIN(XPI/8,0) 

BcDCOSCXPI/8.0) 

^♦CALCULATION  OF  CUFFFICIENTS 
A0=W*W*W*W 
Al*  (  A  +  B ) *w 
A2*(A+B)*(A+B)*W$W 
A3e(A+B)*W*W*W 

S8al ,0+2,04(Al+A2+A3)+A0 
57a-4.0*CT>*  C 2.0  +  2, 04 A2  +  3 , 0* A  J  ♦  A3 1 
S6S4,0*(1,04A1-A3-A0+2.0*CT*CT*(3.0+A2+3,0*A1)) 
S5a-4.0*CT*(6.0-2,0*A2+3.0*A1-3.0*A3+4.0*CT*CT*(2.04A1) ) 
S4a2.0*(3.0-2.0*A243,0*AO+8,0*CT*CT»(3.0-A2+CT*CT) ) 
S3*-4.0*CT*(6.0-2,0*A2-3,0*A1+3.0*A3+4,0*CT*CT*(2.0-A1) ) 
S2a4,0*(1.0-Al4A3-AO  +  2.0*CT*CT*C3.0-fA2-3.0»Al)  ) 
Sla-4.0*CT*(2.0+2.0*A2-3.0*Ai-A3) 
S0*1.042,0»A2-2.0*A1-2,04A34A0 
C***STORE  INITIAL  VALUE 
TEMP(10)sARRAY(l) 

C***ZERO  ALL  OTHER  ELFMENTS, 

DO  30  K«l,9 
TEMP ( K ) aO , 0 
30  AFILT ( K  JaO . 0 

C***SUBTRACT  THE  INITIAL  VALUF  FROM  ALL  VALUES, 

DO  40  Kr 1 , N 

40  ARRAY(K)aARRAY(K)-TEMP(lO) 

C***APPLY  FILTER  TO  ELEMENTS  1  TO  N, 

DO  50  K*1 , N 
TEMPC9)*ARRAY (K) 

AFILT(9)a(A0W(TEMP(9)-4,0*TEMP(7)+6,0*TEMP(5)-4,0*TEMPC3) 

1  4TEMP(l) )-(S7*AFILT(R)4S6*AFILT(7)4S5aAFILTC6)4S4*AFILTC5) 

2  4S3*AFILT(4)+S2*AFILT(3)4Sl*AFILT(2)4S0*AFILT(i) ) )/S8 

ARRAY(K)«AFILT(9) 

DO  50  K K a 1 ,8 
TEMP(KK)*TEMP(KK4l) 

50  AFII.T(KK)aAFILT(KK  +  l) 

C***REZERO  DOUBLE  PRECISION  ARRAYS 
DO  70  KKsl  , 9 
TEMP (KK )a0,0 
70  AFILT(KK)«U,0 

C’MAPPLY  FILTER  IN  REVERSE  DIRECTION, 


K*N-KN4l 

lfc’fcP(9>sARRAY(K) 

AFILTC9)s(A0*(TFMP(9)-4.0*TEMP(7)+ 6 , 0*TEMP ( 5 ) -4 . 0*TEMP( 3 ) 

1  ♦TE«P(1))-(S7*AFILT(8)+S6*AFILTC7)*S5*AFILT(6)+S4*AFILT(5) 

2  ♦S3*AFILT(4)  +  S2*AF  ILK  3)+Sl*AFILT(2KS0*AFILl  ( 1)  )  )/S8 

ARRAY(K)sAFILT(9) 

DO  «0  KK*1,8 
TF.MP(KK)aTEMP(KK  +  l  ) 

80  AFILT(KK)=AFJLLT(KK+1) 

C***READP  INITIAL  VALUE  TO  FILTERED  VALUES  TO  CORRECT  TO  ORIGINAL  1C#S. 
1^MPAR=AKRAYC1) 

DO  90  K=1,N 

90  ARRAY (KJ=ARRAY(K)+TFMP( 10 J-TEMPAR 
100  RETURN 

120  WRITE(IOD#4000) 

WRITE (8  , 4000 ) 

4000  FORMAKIOX, '*****F2  GREATER  THAN  FS/2. *♦****') 

RETURN 

END 
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PROGRAM  SWPDAT 

THIS  PROGRAM  MOVES  WALKING  DATA  (SECTION  2)  FROM. 

ST jCODATA.DAT  TO  POSITION  1  IN  SY : CODATB , DAT 

TASK  BUILD  ASl  SWpDATsSWPDAT , [ J , 1) F4POTS/LB 
UN11S=14  MAXBUF=512 

DIMENSION  CODAlAClfc.F) , STATS (6, 16) ,IPOS(3) , I R ( 3 ) , 1SUB ( 3 ) , 

1  ITST{3) , ISBL(3) ,1FPL(3) ,KEND(3) ,TSAMP(3), TRDA1A(32,8)  , 

2  I HOS ( 3 ) 

COMMON  /ASV/IF12,IF13,IF14,1F17,IF19,IF20 
DATA  IYES/'YE'/,INO/'NO'/ 

IK  B=5 
IODb5 

CALL  ASSIGN(8, 'SY SPRNTIT.LSTfl ') 

CALL  FDBSET(8, 'APPEND') 

C***READ  INPUT  INDEX  FILE 

CALL  ASSIGN (9, 'SY: INPACC.DAT; 1 ') 

DEFINE  FILE  9 ( 1 , 30 , U , IF14 ) 

READ(9'1 )  IPOS,IR,ISUB,IHOS,IIST,ISBL,IFBL,KEND,TSAMP 
CALL  CLOSE ( 9 ) 

IPOSTaJ  J  SET  UP  SO  ALWAYS  LOADED  INTO  POSITION  1 

DO  10  1=1,3 
10  IPOS ( I ) =IPOST 

C***OPEN  CODATA  INPUT/OUTPUT  FILES 

CALL  ASSIGN (10, 'SYlCODATB.DAT ; 1') 

DFFINE  FILE  1 0 ( 1 30 , 256 , U , IF 1 2 ) 

CALL  FDHSETdO, 'NEW') 

CALL  ASSIGN ( 1 1 , 'SY J CODATA . DAT; 1') 

DEFINE  FILE  1 1 ( 200 , 256 , U , I F 1 7 ) 

CALL  FDBSETdl  , 'READONLY') 

C***SET  INDEXES 

INBLK=ISBL(2)  ISECTION  2  STARTING  BLOCK 

ISBLK*1  'STARTING  OUTPUT  BLOCK 

IF(IPOST.EQ.2)  ISRLKsISBLK+130 

IFdPOST.EO.  3)  ISBLKbISBLK  +  260 

IFBLKsISBLK  'OUTPUT  BLOCK  INDEX 

ISS=16  1 E I  f 3 A L  DATA  SAMPLE  INDEX 

KFIRST*1  IINIT1AL  SAMPLE  FLAG 

KS*KEND ( 1 )  /8 

IF(KS.FO.lb)  K  5  =  0 

KSB=16-KS 

LOT=((IFBL(2)-ISBL{2))M6+(KErD(2)/b)-KS) 

ILOTsLOT 

LS=1 6  ISECTION  LAST  SAMPLE  INDEX 

C***BEGINNJNG  OF  LOOP 

C***READ  BLOCK  OF  INPUT  AND  INDEX  BLOCK 

60  READdl'INBLK)  (  (  COD  AT  A  ( K I L  ,  IL  )  ,  I L*  1 , 6  )  ,  KI  L=  1 ,  LSS ) 

INBLK*INBLKd 
LOT*LOT-LSS 

IF( K FIRST. NE,1 )  GO  TO  70 

L0T*L0T4LSS-KSB 

GO  TO  150 

70  IF(LOT.LE.O)  LS=LSS+LOT 

C***FILL  REMAINDER  OF  OUTPUT  ARRAY 

no  eo  il=i,b 

DO  80  KIBSK5B-H  ,KSB  +  LS 
80  TROATA(KIb,IL)*COnATA(KIB-KSB,IL) 

IF(KFIRST.EO.l)  KFIkST*0 
IF(KIB.LE.17)  GO  TO  100 
C***WRITE  ONE  COMPLETE  ARRAY  BLOCK  TO  DTSC 

WRITE ( 10'IFBLK)  ( (TRDATA (K IL , 1L) , IL*1 , 8 ) , KIL«1 , 16) 
IFBLKsIFBLK+1 

aBBSLaam  i 


C*** 

C*** 

C*** 

c*** 

C*** 

c*** 


KLBsKSR 

IF ( LOT, LE. 0 )  KLRSKSB+LOT 
DO  90  I L* 1  ,  R 
DO  90  KIB*l,Kl,b 

90  TRDATA(KIB,lL)=TRDATAd6  +  KJF,IL) 

C***IF  ON  LAST  INPUT  BLOCK  OF  SECTION  2,  FILL  REMAINDER  WITH  ZERO  A’-’D 
C***WPITE  TO  DKO 

IFCLOT.GT.O)  GO  TO  60 
IF(KSB.E0.16)  GO  TO  140 
100  IF((K1B-16).EQ.1)  GO  TO  120 

DO  110  IL=1,8 
DO  110  KIL.sKIB,16 
110  TPDATA(KIL,IL)=0.0 

120  WRITE! 10'IFBLK)  ( ( TRDAT A ( K JL , I L ) , I L=1 , 8 ) , K IL®1 , 16 ) 

140  CALL  CLOSE (10) 

CALL  CLOSE (11) 

GO  TO  180 

C***IF  ON  FIRST  SECTION  2  DATA, FILL  INITIAL  OUTPUT  ARRAY  POSITIONS 
ISO  IF ( K SB . EQ *16)  GO  TO  80 

DO  160  IL-1 ,8 
DO  160  KIL=1,KSB 

160  TRDATA!KIL, IL)=CODATA ! 16-KSB+KIL,IL) 

KFIRSTeO 
KS=1 
LS*16 
GO  TO  60 

C***I NSURE  CORRECT  NUMBER  OF  SAMPLES  WRITTEN  TO  DISC 
1R0  NSAMP2=(1FBLK-ISBLK)*16+(KIB-1 ) 

WPITE!1UD,2010)  1L0T,NSAMP2 
D  WRITE! IOD,2030) 

D  RE AD ( I KB ,1010)  IY1 

D  IF(IYl.NE.IYES)  STOP  'DATA  TRANSFER  HALTED' 

C***SET  PPINTED  OUTPUT  FLAG 

1Y2SIYFS  1  SET  TO  ALWAYS  PRINT 

IF(IY2.NE.IYES)  GO  TO  270 
WRITE(8, 2060) 

WRITE ( 8,2070)  IR ( 1)  ,  ISUR ( 1 ) , IHOS ( 1)  ,  ITST ( 1 ) , I POS ( 1 ) 

WRITE (8, 21 70)  1SBLK , IFBLK, ( (KIB-1 )*8) ,NSAMP2 
C***RELOAD  I NDACC  WITH  CORRECT  INFORMATION 
270  ISBL(l)sISBLK 

IFBL ( 1 )* JF8LK 
KEND(l)s(KIB-l)*P 
DO  280  Js2,3 
ISBL! J)=0 
IFBL! J)=0 
2R0  KEND ! J ) =0 

C*** WRITE  INDACC  TO  DISC  FILE 

CALL  ASSIGN ( 12, 'SY l INDACC.DAT; 1 ') 

DEFINE  FILE  12 ( 1 , 30 , U , IF1 9) 

WRITE(12'IP0S(1) )  I POS, IR, IRUB, IHOS, ITST, 15BL, IFBL, KEND, 

1  TSAMP 

CALL  CLOSF (12) 

CALL  CLOSE ( 8 ) 

CALL  EXIT 

1000  FORMAT (14) 

1010  FORM AT ( A2 ) 

1020  FORMAT ( 2F 1 5  •  7 ) 

1030  FORMAT! 414) 

2000  FORMATf20X, 'DATA  TRANSFER '/I OX , 

1  'ENTER  KEND(1),KEND(2),ISBLC2),IFBLC2)') 

2010  FORMATCIOX, 'INPUT', 2X, 14,'  SAMPLES ', 5X , 'OUTPUT' , 2X  ,  1 4  , 

1  '  SAMPLES') 

2020  FORMATdOX, 'OUTPUT  CODATA  BLOCK ',  14 , 2X  , 'THRU  BLOCK', 14) 

2030  FOR MATC10X, 'DOES  IT  LOOK  OK?  (YES/NO)') 

2040  FORMATdOX,'  WANT  TRANSFER  STATEMENT  PRINTED?  (YES/NO)  ' ) 

2060  FORMAT ('l',19X,'DATA  TRANSFER  TO  CODATB.DAT  COMPLETED') 


2070 


FORMAT C 1H  ,'KKCORD  NUM S ' , 1 3 , 5X , 'SUBJECT  NUM:',I3,5X, 

1  'HOSP  NUM:', 16, 5X, 'TEST  NUMt'»I6,5X, 'POSITION' , 13/) 

2170  FORMATUH  , 'FIRST  BLOCK  :  '  ,  1 4 , 2X  ,  'LAST  BLOCK  S ' , 14 , 2X , 

1  'LAST  WORDS', 14, 2X, 'NUM.  OF  SAMPLES S ' , 14 ) 

2200  FORHATUOX, 'DATA  SECTI0NINGV5X, 

1  'ENTER  WALKING  SECTION  START  AND  STOP  TIMES') 

2210  FORMATCIOX, 'COMPUTED*  START  TIMEe',G14.6,2X, 'STOP  TIME*', 

1  G14.6) 

2220  FORMATUH  , 'FIRST  BLOCK  S  '  ,  1 4 , 2X , 'LAST  BLOCK  S ',  14 , 2X , 

1  'LAST  WORD', 14) 

F0PMAT(5X, 'ECHOCHFCKS  ',414) 

END 
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C»***  PROGRAM  SPfcDIT 

C**»  THIS  PROGRAM  ITERATES  TO  PRODUCE  AN  OMEGA  VECTOR  WITH  MEANS 
C***OF  APPROXIMATELY  ZERO(<TOL).  11  USES  SUBROUTINE  VERSIONS  OF 
C*»*COOMFG  AND  MEANIT  CALLED  SPOMEG  AND  SPMEAN, 

C*** 

C***  TASK  BUILD  AS: 

C***  SPEDIT  =  SPED1 T, SPOMEG, AM 3 1 NM ,D10MGM , SPMEAN, [ 1 , 1) F4P0TS/LB 

C*»*  UNITS=14  MAXRUF=512 

DIMENSION  SMEAR (3, 3) 

COMMON/PARAM/IKB,IOD,IPOST,IPOS(3) ,IR(3) ,ISUB(3) ,IHOS(3) , 

1  ITSTC3)  ,ISBM3)  ,IFBL(3),KENDf3)  ,TSAMP(3)  , AD J ( 4 )  ,  ADSL  ( 4  )  , 

2  ASTP { 8 ) , I Y1 

COMMON  Y(37,4),DY(36,4),  CO!»AT  A  (36,4) 

COMMON  /ASV/1D1,ID2,ID3,ID4 
DATA  IYES/'YE'/,INO/'NO'/ 

CALL  ASSIGNC8,'SY:PRNTIT.LST;l') 

CALL  FDBSETC8, 'APPEND') 

IKB=5 

IODsS 

IYlsINO 

C*4*»RITE  PROGRAM  TITLE  ON  TERMINAL  SCREEN 
WRITE(I0D,2800) 

2800  FORMAT ( 1  OX , ' SPEED Y  ITERATION  OF  OMEGA') 

IPOSTsl  1SET  FOR  POSITION  1  ONLY 

TOLsO.OOOOi  i ITERATION  TOLERANCE 

MAX1  =  40  J  MAX  NUMBER  OF  ITERATIONS 

DO  10  1=1,4 
10  ADSL( I )=0 . 0 

D  WRITECI0D,281C) 

2810  FORMATCIOX, 'ENTER  CODATA  SLOPF.  CORRECTIONS*!  ,2,3,4') 

D  READ(IKB, 1510)  ADSL 

1510  F0RMAT(4F15.7) 

K0UKT=0 

C*»*SET  OFFSET  ADJUSTMENTS  TO  ZERO 
DO  20  1=1,4 
20  AD J ( I )  =0  , 0 

C***INTEGPATE  TO  FIND  OMEGA  VECTOR 
40  CALL  SPOMEG 

C***COMPUTE  THE  OFFSET  CORRECTOR  FACTOR  SO  THAT  OFFSETS  ARE  ADJUSTED 
C***BY  A  FACTOR  OF  MEAN  VALUE  X  2  /RUN  TIME, 

IF(KOUNT.NE.O)  GO  TO  50 


RNTsFLUATC ( IFPL C 2 ) - I SBL ( 2 ) ) 432+KEND ( 2 ) /4 ) *TSAMP ( 2 ) *0.001 
FCT*2 , O/RNT 

C***COMPUTE  MEAN  OF  OMEGA  VECTOR 
50  CALL  SPMEAN 

K0UNT*K0UNT+1 

WRITE(I0D,2820)  (ASTR(I) ,1=1 , 4) 

2820  FORMAT(2X,'MEANS=',4(2X,G14.7)) 

IF (FOUNT, GT, MAXI)  STOP  'TOO  MANY  ITERATIONS' 

C***ITEPATE  ON  OMEGA ( 2 )  UNTIL  LESS  THAN  TOLERANCE  BY  ADJUSTING 
C***  CODATA ( 2 ) 

IF(ABS(ASTR(2)),LF,T0L)  GO  TO  BO 
ADJ(2)*ADJ(2)+FCT*A5TP(2) 

GO  TO  40 

C***AFTFR  OMEGA ( 2 )  MEAN  LESS  THAN  TOLERANCE  ADJUST  CODATA(l)  AND  13) 
60  1F(ABS(ASTR(1)),LE,T0L,AND,ABS(ASTR(3)),LE,T0L)  GU  TO  100 

ADJ(1)*ADJ(1 )-ECT*ASTR(l) 

ADJ(3)=ADJ( 3 )+FCT* ASTR( 3 ) 

GO  TO  40 

100  IF ( I Y 1 . EO, I YES)  GO  TO  120 

1¥1«IYES 

,  GO  TO  40 

L.  M  CMMTOBE 


CALL  ASSIGN ( 14, 'SY I  ST MEAN. DAT; J ',16) 

DEFINE  FILE  14  (  1 , 1  8  ,  IJ ,  IGUESS) 

CALL  FDBSETC14,'NEW') 

DO  140  1*1,3 
SMEANd  ,I)*ASTR(I) 

WF1TE(14'IP05T)  ( (SMEAN ( J , I ) , 1*1 , 3 ) , J*1 , 3 ) 
CALL  CL0SE(14) 

CALL  CLOSE ( 8 ) 

CALL  EXIT 
END 
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SUBPOUT INK  SPOMEG 
C***  PROGRAM  COCMEG 

C***  THIS  PROGRAM  INTEGRATES  THE1  DIFFERENCE  DATA  S1PRF.D  IN 
C***SYtCODATB,DAT  TO  PRODUCE  THE  THREE  COMPONENTS  OK  THE  ROTATION 
C***VECTOR  OMEGA.  IT  STORES 

C***OMGl,OMG2,OMG3,  AND  MEAN  SQUARE  INTEGRATION  ERROR  ON  DISC  FILE 
C***SY IOMEGA. DAT,  THE  INDEX  TO  SY IOMEGA. DAT  IS  STORED  IN  ARRAY 
C***POSITION  (2)  OF  INDEX  FILE  SYlINDACC.DAT. 

COMMON  /PAKAM/IKB,1PD,1POST,IPOS(3),IR(3),ISUB(3)  , IHOS(3)  , 

1  1TSTC3)  ,ISBL(3)  , JFUL(3)  , KENDO)  ,TSAMP(3)  .ADO (4)  ,  ADSL(4), 

2  ASTR ( & ) *  I Y 1 

COMMON  Y(37,4) ,DY(36,4) ,  CODATA (36, 4  ) 

COMMON  /ASV/IF15,IF17,IF19,ID4 
DIMFNSI ON  STDATA ( 36,8) 

FXTERNAL  DIOMGM 
DATA  IYFS/'YE'/ 

C*** ASSIGN  AND  DEFINE  OUTPUT  FILES 

CALL  ASSIGN(9,'SYlCMEGA. DAT/1') 

DEFINE  FILE  9 ( 6 5 , 256  ,  U  ,  I F 1 5 ) 

C***REAP  POINTER  INDEX  FILE 

CALL  ASSIGN (10, 'SYtINDACC.DAT; 1') 

DEFINE  FILE  1 0 ( ) , 30 , U , I F 1 9 ) 

CALL  FDBSETC10, 'READONLY') 

READC 10'IPOST)  I  PCS , 1 R , I  SUB , I HOS , I TST , I SBL , I FPL , KEND , TS AMP 
CALL  CLOSE (10) 

C***SET  INITIAL  INDEX  VALUES 

1BLK=ISBLC1)  ‘INPUT  BLOCK  INDEX 

IOBLKel  10UTPUT  BLOCK  INDEX 

IF  (  IPC1ST  .  EQ  .  2  )  I0BLK=I0«LK+65 
IF  ( IPOST.  EQ.  3  )  I08LK»I0BLK4-1  30 
ISBL ( 2 ) *IOBLK 

C***SET  INITIAL  VALUES  FOP  ENTRY  INTO  INTEGRATION  ROUTINE  AM3INM 
C*»*N.B.  IOMEGA  AND  OMEGADOT  SET  TO  ZERO 
DO  10  1*1,4 
DO  10  J*1 , 4 
Y(J,I)=C.O 
10  DY(J,I)*U.O 

L0Tssl6*(IFBLCl)-ISBL(l))tKEND(l  )/B 
H*TSAMP(1)*0.001 

C***ENTER  CODATA  OFFSETS ( ONLY  POSITIONS  1-4) 

D  WRITE(IUD,2010) 

2010  F0PMATC5X, 'ENTER  COPATA  OFFSETS— POSH  IONS  1,2, 3, 4  ONLY') 

D  RFADCIKB, 1020)  ( ADJ ( I ) , 1*1 , 4 ) 

1020  F0RMATC4F15.7) 

D  WRITEC I0D,2060) 

2060  F0RMATC5X, 'ENTER  CODATA  SLOPE  CORRECTIONS-— 1 ,2,3,4') 

D  READCIKb, 1020)  ( APSLC I), 1*1, 4) 

C***ASSIGN  AND  DEFINE  INPUT  FILE 

CALL  ASSIGN (11, 'SYlCODATb.nATj 1 ') 

DEFINE  FILE  1 1  ( 1 30 , 256 , U , I F 1 2 ) 

CALL  FDBSETC11, 'READONLY') 

C***READ  IN  TWO  BLOCKS  OF  INPUT  DATA 
C***SFT  SAMPLE  INDEX  FOR  FJPST  BLOCK 

20  LS*20  14  IC'S  ♦  J  6  SAMPLES 

C***IF  ON  LAST  INPUT  BLOCK, REDUCE  LS 

IF(IBLK.EQ.IFBLCl))  LS* ( KEND ( 1 ) /8 ) +4 
RtAD(ll'IBLK)  ((STDATA(KI,I),I*1 ,P),KI*5,LS) 

IBLK*IBLKt1 

C*4*IF  LAST  INPUT  BLOCK  NAS  READ, JUMP  TO  DATA  TRANSFER 
IF (IBLK.GT. IFBL( 1 ) )  GO  TO  30 
LS*36 

IF ( IBLK . ECJ. IFBL(  1 )  )  LS*(KEND(  l  )/8)t20  . . 

C***READ  IN  SECOND  INPUT  DATA  SLOCK _  _ 
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REAP  (  1 1  ' IBLK )  !(STDATA!KI,I),I*lf6),KI*21,LS) 

I BLK  = I BLK  + 1 

C***TRANSFEP  INPUT  DATA  TO  INTEGRATION  ARP  AY 
30  DO  40  KI=5, LS 

T=FLOAT( (IBLK-ISBL! 1 )-l) *16+!KI-5)  )*H 
DO  40  1=1,4 

40  CODATA (KI, I )=STDAIACkI, I)-ADJ(1)-ADSL(I)*T 

C***IN'TEGRATE  BLOCK  OF  DATA 

C*** 

CALL  AK3INM(D10MGM,H,LS) 

C*** 

C***IF  OK  LAST  BLOCK, STORE  ZERO  IN  REMAINDFR 
IF(IBLK.LT.IFHL(1 )>  GO  TO  60 
LOS=LS+ 1 

IF(LOS,GT, 36)  GO  TO  60 
DO  50  J=LOS , 36 
DO  50  1=1,4 
50  YCJ, 1)80.0 

C***WRITE  INTEGRATED  BLOCK  TO  DISC  FILES  AND  INDEX  BLOCK 
60  WRITE(9'IDBLK)  ( { Y { K I , I ) , I sj , 4 ) , K I *5 , 36 ) 

IOBLK=IOBLK+ J 
C***TEST  FOR  END  OF  DATA 

IF( IBLK . GT.lFbL(l))  GO  TO  80 

C*»*RESET  ARRAYS  WITH  IMTAL  CONDITIONS  FOR  NEXT  DATA  BLOCK 
DO  70  1=1,4 
DO  70  J=1 , 4 
Y(J,I)=YCJ+32,I) 

DY { J , I ) =DY ( J+32 , I ) 

70  CODATA! J,I)=CODATA! J+32,I) 

GO  TO  20 

C***CLOSE  ALL  OPEN  FILES 
80  CALL  CL0SE(9) 

CALL  CLOSE (11) 

C***COMPUTE  LAST  WORD  INTEGRATED  AND  LAST  BLOCK  WRITTEN  TO  DISC 
KEND(2)=(LS-4)*4 
IFBL(2)=I0BLK-1 

C***WFITE  ON  TX  INFORMATION  ON  INTEGRATED  DATA 
D  WRITE(IOD,2020)  IR ( 2 ) , ISUB ( 2 ) , IHOS ( 2 ) , ITST ( 2 ) , I POST 

2020  FORMAT ( 1 H  , 'RECORD  NUM ; ' , 1 3 , 5X , 'SUB JECT  NUNS', 13, 5X, 

1  'HOSP  NUM!', 16, 5X, 'TEST  NUM :', 13 , 5X , 'POSITION ', 13 ) 

D  WRITE! IOD,2090)  ISBL  (  1  )  ,  IFBL  (  1  )  ,  KEND  (  1  ) 

D  WRITE(IOD,2090)  ISBL ( 2 ) , IFBL ( 2 ) , KEND ( 2 ) 

D  WRITE(I0D,20S0)  C ADJ(I) ,1=1 ,4) 

2050  FORMAT  C 1 H  ,  'DATA  ADJUSTED  US  I NG S ' / 5X  , 'OFFSETS  I ' , 4 C X , G 1 4 , 7 ) ) 

D  WRITE(IOD,208O)  ( ADSL ( I ) , 1=1 , 4 ) 

2080  FORMAT ( 5X , '  SLOPES t ' , 4 C X , G 1 4 . 7  )  ) 

C***IF  DATA  LOOKS  GOOD--STORE  INDEX  INFO  AND  CARRY  ON 
D  WRITE! I OD, 2030) 

2030  FORMAT! 10X , 'DOES  IT  LOOK  OK?  IYES/NO)') 

D  READ! IKB, 1010)  IY 

D  IFIIY.NE.IYES)  STOP  'INTEGRATION  ABORTED' 

CM*STORE  NEW  INDEXING  INFORMATION 

CALL  ASSIGN!  13,  'SY HND ACC. DATj  1') 

DEFINE  FILE  1 3 ( 1 , 30 , U , IF1 9 ) 

WRITE! 13' IPOST)  IPOS , IR , ISUB , I HOS , ITST , ISBL , IFBL, KEND , TS»*P 
CALL  CLOSE! 13) 

C***TEST  PRINTED  OUTPUT  FLAG 

IF(IYl.NE.lYES)  GO  TO  100 
WRITE(B,2070) 

2070  FORMAT ! 1 H  ,19X, 'OMEGA  INTEGRATION  COMPLETED  ON'/) 

WRITE! 8, 20 20)  IR ( 2 ) , ISUB ( 2 ) , I HOS ! 2 ) , ITST ( 2 ) , IPOST 
WRITE! 8, 2090)  ISBL! 2 ) , IFBL! 2 ) , KEND ( 2 ) 

2090  FORMAT ! 1 H  , 'INITIAL  BLOCK s ', 14 , 2X , 'FINAL  BLOCK t ', 14 , 2X , 

1  'LAST  WORDS', 14) 

WRITE! 8 ,2050)  (ADJ(I) ,1=1,4) 


*  1 


1 


c** 

c*» 

c** 

c** 

c** 

c** 

C** 

c** 
c** 
c** 
c** 
c** 
c** 
c** 
c ** 
c** 
c** 


TI 

Y(1,I) 
DY(1,I) 
PARAMETER 
ARRAY  y : 


ARRAY  DYi 


SUBROUTINE  AM3 I N M ( DI FUN , H , L ) 

THIS  SUBROUTINF  INTEGRATES  3  FIRST  ORDER  DIFF  EOS 
USING  A  4TH  UPDKR  ADAMS-B ASHFORTH-MOULTON  METHOD 

BEFORE  ENTRY  THE  FIRST  4  POSITIONS  IN  ARRAYS  Y  AND 
DY  MUST  BE  LOADED  WITH  THE  INITIAL  VALUES  AND  THE  VALUES 
FOR  THE  NEXT  3  STEPS  CQRRESSPONDING  TO: 

Tl  12  T3 

Y ( 2 » 1 1  Y(3,I)  Y  (  4 , 1 ) 

ny(2,n  dy(3,i)  dy(4,ii 

DESCRIPTIONS: 

INDEPENDENT  VARIABLES  IN'  Y  (  L ,  1 )  ,  Y  (  L  ,  2  )  ,  Y  (  L  ,  3  ) 

MEAN  SQ  DIFF  BETWEEN  PREDICTOR  AND  CORRECTOR 
IN  Y  (  L  ,  4  ) 

DERIVATIVES  OF  INDEPENDENT  VARIABLES  IN  DY(L,1), 
DY(L,2) ,DY (L,3) .  DY(L,4)  IS  NUT  FILLED  BY  THIS 
SUbROUTINF 

H:  STEP  SIZE (NORMALLY  IN  SECONDS) 

L:  TOTAL  STEPS  TO  BE  COMPLETED  FROM  TI  NOT  TO  EXCEED  36 

DIMENSION  A(4) #B(4) #FRR(3) 

COMMON  Y(37,4) ,DY(36,4) , CODATA ( 36 , 4 ) 

C***COMPUTE  AND  STORE  COEFFICIENTS 
A(1)=H*2. 291667 
A(2)=-H*2. 458333 
A(3)=H*1. 541667 
A(4)s-H»0.375 
B  (  1 )  =H*0 ,37  5 
B(2)=H*0.7916*b7 
B(3)=-H*0. 2063333 
B(4)=H*0. 04166667 

C***BEGIN  OVERALL  INTEGRATION  LOOP 
DO  30  J  =  S ,  L 

C***COMPUTE  PREDICTOR  AND  STORE  IN  Y(J+1,I) 

DO  10  1=1,3 

JO  YCJ+l ,I)=Y(J-1  ,1)  +  A(1  )*DY(J-1,I)+A ( 2 ) *DY C J-2 , 1 ) 

1  +A(3)*DY(J-3,I)+A(4)*DY(J-4,I) 

C***COMPUTE  DY  USING  PREDICTOR 
CALL  DIEUN(J+1,J) 

C***COMPUTE  CORRECTOR 
DO  20  1=1,3 

Y(J,I)=Y(J-1,I)+B(1)*DYCJ,I)+B(2)»DY(J-1,I) 

1  ♦B(3)*DYCJ-2,1)+BC4)*DY(J-3,I) 

20  ERP(I)=ABS(Y(J,I)-Y(J+1,I)J 

C***COMPUTE  DY  USING  CORRECTOR 
CALL  DIFUN ( J , J) 


30  Y(J,4)=SQRT(EPR(1)**2+ERR(2)**2+ERR(3)**2) 

RETURN 
END 
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SUBROUTINE  D10MGM(LY,LDY) 

C***THIS  SUBROUTINE  CONTAINS  THE  DIFFERENTIAL  EQUATIONS 
C***  WHICH  DEFINE  THE  SOLUTION  TO  THE  ROTATION  VECTOR  OMEGA 
COMMON  Y(3, ,4) ,DY(3b,4) ,CODATA ( 36 , 4 ) 
DY(LDY,l)=Y(LY,2)*YCLY,3)-CODATA(LDY,l) 
DY(LDY,2)*CQDATA(LDY,2) 

DY(LDY,3)=-Y(LY,l)*YCLY,2)+CODATA(LDY,3) 

RETURN 

END 


SUBROUTINE  SPMEAN 
C***  PROGHAM  MEAN  IT 

C***  THIS  PROGRAM  COMPUTES  THE  MEANS  OF  SYJ0MEGA.DAT 

C(jMMON/PAWAM/1KB,IOD,IPOST,IPOS(3)  , IR(3)  ,ISUB(3)  ,IHOS(3), 

1  ITST(3) ,ISBL(3) , IFRL( 3 ) ,KEND( 3) ,TSAMP(3) ,ADJ(4) ,ADSL(4), 

2  ASTR (  8  ) ,  I Y 1 

COMMON  /ASV/IF15,1H7,IF19,IF24 
DIMENSION  CDATA (37,8) 

DATA  IYES/'YE'/ 

C***OPEN  INPUT  FILE  AND  SET  PARAMETER  VALUES 
CALL  ASSIGN (12, 'SY: OMEGA. DAT; 1') 

DEFINE  FILE  1  2 ( 6 5 , 25 6 , U , 1 F 1 5  ) 

CALL  FD3SETC12, 'READONLY') 

IFILE“1 2 
I  PL=2 
IL=4 
KIL=32 

C***SET  INITIAL  INDEX  VALUES 
IBLK=ISBL(IPL) 

LSsKIL 

L0T=LS*(IFBL,(TPL)-1SBL(1PL) ) +  K END (I  PL ) / 1 L 
HrTSAMP(l)*0.001 
C***2ERO  SUMMING  LOCATIONS 
DO  10  1*1, 1L 
10  ASTR(I)*0.0 

C***READ  BLOCK  OF  INPUT  DATA  AND  INDEX  BLOCK 
20  READ(IFILE'lBLK)  ( ( CDATA ( K I , I ) , I *1 , I L ) , K I* 1 , KIL ) 

IBLKsIBLK+l 

C»**COMPUTE  SUM  OF  ALL  SAMPLES  AND  STORE 
DO  30  K 1=1 , K IL 
DO  30  1*1, IL 

30  ASTR ( I )=CDAT  A(KI,I)+ASTR(I) 

C***1F  ON  LAST  BLOCK, REDUCE  LS  TO  LAST  WORD 

IFdBLK.EO.IFBL(IPL)  )  LSsKEND ( IPL ) /I L 
C***TEST  FOR  END  OF  INPUT  DATA 

IFdBLK.GT.IFflL(lPL))  GO  TO  40 
GO  TO  20 

C***CLOSE  OPEN  FIIF 
40  CALL  CLOSEC IFILE) 

C***COMPUTE  MEAN  VALUE 
DO  50  1=1, IL 

50  ASTR(1)=AS1R(I)/FL0AT(L0T) 

IF(IY1,NE,IYES)  GO  TO  80 
WRITE (6,2310) 

2310  F0RMAT(15X,'F0R  FILE  SYrOMEGA.DAT; 1 ') 

WRITE (R,21U0)  IR(IPL),I5UB(IPL),IH0S(IPL),ITST(IPL), I POST 
2100  FORMAT ( 1 H  , 'RECORD  NUM J ' , 1 3 , 5X , 'SUBJECT  NUM:',I3,5X, 

1  'HOSP  NUM:', Ib,5X, 'TEST  NUM : ' , 1 3 , 5X , 'POSITION J ' , 1 3 ) 
WRITE (6,21 10)  1SBl(IPL),IFBL(IPL),KEND(IPL), LOT 
2110  FORMAT ( 1H  , 'FIRST  BLOCK 14 , 2X , 'LAST  BLOCK J ' , 1 4 , 2X , 

1  'LAST  WORD:', 14, 2X, 'NUM.  OF  SAMPLES : ' , I 4 ) 

WRITE ( 8 , 2030 )  ( ASTR (I ), 1*1 , IL) 

2030  F0RMAT(1UX,'MFAN(1) , (2), . *' ,/4GI 5.7 , /4G1 5.7/) 

80  RETURN 

END 


c***  program  omgfil 

C***  THIS  PROGRAM  FILTERS  DATA  T  N  SY  jOMEGA.DAT  USING  AN  8TH  ORDER 
C***HECURSI  VE  BUITERWORTH  FILTER.  THE  DATA  IN  SY  l  OMEGA  .DAT  IS 
C***RF.PLACED  BY  THE  FILTERED  DATA. 

C*** 

C***  TASK  BUILD  AS*  OMGF ILsOMGFI L , BNDPAS f (1 , 1 J F4POTS/LB 
C***  UNITSslO  MAXBUF=51? 

DIMENSION  CODATA (32,4) , S I D AT A ( 2000 ) , IPOS (3) ,IR(3) , ISUP(3) 
DIMENSION  IH0513)  ,  1TST  (  3  )  ,  I SBL  (  3  )  ,  I  FBI.  (  3  )  ,  KEND  (  3  )  ,  TS  A  MP  (  3  ) 
COMMON  /ASV/IF22 ,  IF1  9 
DATA  IYES/'YE'/ 

CALL  ASSIGN (6 , 'SY J PR N T I T . LST ; 1 ', 16) 

CALL  FDBSF1 (6 , 'APPEND') 

I K  B  =  5 
IOD  =  5 

C***WRITE  PROGRAM  TITLE  ON  TERMINAL  SCREEN 
WPITE(IOD,2000) 

2000  FOPMATC20X, 'OMEGA  FILTERING') 

I POSTs 1  ‘SET  POSITION  1  ONLY 

C*** ASSIGN  AND  DEFINE  INPUT/OUTPUT  FILE 

CALL  ASSIGN (9, 'SYjOrtEGA.DAT; 1 ',16) 

DEFINE  FILE  9 ( 6 5 , 25ft , U , IF22 ) 

CALL  FDBSET(9,'OLD') 

C***READ  POINTER  INDEX  FILE 

CALL  ASSIGN ( 10, 'SYJINDACC.DAT; 1' ,1b) 

DFFINE  FILE  1 0 ( 1 , 30 , U , 1F1 9 ) 

CALL  FD8SL1(10,'RFADONLY') 

READ(IO'IPOST)  IP0S,IR,ISUB,IH0S,1TST,ISBL,IFBL,KEND,TSAMP 
CALL  CLOSE (10) 

C***ENTER  LOWER  AND  UPPFP  BANDPASS  FREQUENCIES 

FC1 =0 . 50  1L0NER  SET  TO  0.50  HZ 

FC2=10.0  JUPPEW  SET  TO  lU.O  hZ 

C***SET  INITIAL  INDEX  VALUES 
IBLK  r ISBL ( 2 ) 

LS  =  32 

LOT*LS*(IFBL(2)-ISBL(2) )+KEND(2)/4 
FSslOOO.O/TSAMP(2) 

11*1 

C***LOAD  ALL  SAMPLES  OF  C0DATA(-,1)  INTO  5IDATA 
10  READ ( 9 'IBLK )  ( ( CODATA ( K I , I ) , 1*1 , 4 ) , K I * 1 , LS ) 

IBLK*IBLK+1 
DO  20  KB*1,L5 

INDs(IBLK-ISBL(2)-l )*32+KB 
20  SIDATA(IND)sCODATA(KB,II) 

IF(IBLK.E0.IFBL(2) )  LS=KEND(2)/4 
IFUBLK.GT.IFBl  (2))  GO  TO  40 
GO  TO  1U 

C***INCREMENT  ARRAY  POSITION  AND  IF  LAST  POSTION  FILTERED  EXIT  LOOP 
30  11*11+1 

IF(II.GT.3)  GO  TO  90 

C***FILTER  ONE  ARRAY  POSITION  OF  DATA (STORED  IN  SI  DAT A ) 

40  CALL  BNDPASCSIDATA ,L0T,FC1 ,FC2,FS) 

C***RESET  BLOCK  AND  *ORL  INDEXES 
IBLKsISBL ( 2 ) 

LS*32 

C***RELOAD  CODATA  TO  REPLACE  FILTFRED  ARRAY  POSITION  AND  TO 
C***LOAD  SIDATA  WITH  NEXT  APRAY  POSITION  TO  BF  FILTERED 
50  READ ( 9 ' I BLK )  ( ( CODAT A ( K I , I ) , I s 1 , 4 ) , K I  si , LS ) 

lOBLKsIbLK 
1BLK*1BLK+1 
DO  60  KB*1 , LS 


1ND*(I0BLK-ISBL(2))432+KB 

C***LOAD  FILTERED  DATA  IRfg  CODATA 


CODATA  f  KB, H)=SIDATA(IND) 

IF(1I.G£,4)  GO  TO  bO 

C***LOAD  NEXT  ARRAY  POSITION  TO  BE  FILTERED  INTO  SIDATA 
SIDATA(lND)=CnDATA(KB,II+l) 

60  CONTINUE 

C***V»R1TE  FILTERED  DATA  TO  DISC  FILE 

KRITE(9'IOBLK)  ( (COP AT AC KI, I), 1  =  1, 4)  ,KI=1,LS) 

C***IF  ON  LAST  BLOCK, REDUCE  LS  TO  LAST  "ORD 
IF (IBLK.EO,IFBL(2) )  LS=KEND(2)/4 
C***TEST  FOR  END  OF  INPUT  DATA 

IFCJBLK.GI.IFPLC2) )  GO  TO  30 
GO  TO  50 

C***CLOSE  OPEN  FILE 
90  CALL  CLOSE ( 9 ) 

C***  WRITE  ADJUSTMENT  INFO  ON  TERMINAL  SCREEN 
*RITEUOD,203O) 

2030  MJRKATC10X,  'OMEGA  filtering  completed  OM') 

WRITE(IOU,2060)  IR ( 1 ) , I SUB ( 1 ) , IHOS ( 1 ) , ITST ( 1 ) , IPOS ( 1 ) 

2060  FORMATflH  , 'RECORD  NU M s', 13, 5X, 'SUBJECT  NUM:',I3,5X, 

1  ' HOSP  NUM j ',I6,5X, 'TEST  NUM : ' , 1 3 , 5X  , 'POSITION  * ' , 1 4 ) 

WRITE(IOD,2070)  FC 1 , FC2 

2070  FORMATdOX  , 'BANDPASS  FREQUENCI ES  :  '  ,  F9 . 2  ,  '  T0',F9.2,'  HZ') 
KtNDP=(Kl-n*4 

WRITE(IOD,2110)  ISBLC2) , IOBLK , KENDR ,LOT 
C***SFT  PRINTED  OUTPUT  FLAG 

IYlsIYES  I  SET  TO  ALWAYS  PRINT 

IFCIY1.NE.IYES)  GO  TO  100 
WRITE ( P , 2030 ) 

WRITE (8, 2060)  I P  d ) , 1SUB (1 ) , I HOS d ) , 1 1ST (1 ) , I POS ( 1 ) 
WRITE(8,2070)  FC1 , FC2 

<*RITE(8,2U0)  I  SBL(  2),  IOBLK,  KENDR,  LOT 
2110  FORMAT! 1 H  , 'FIRST  Bt OCK : ' , I  4 , 2X , 'L A  ST  BLOCK 14 , 2X , 

1  'LAST  WORDS ',14, 2X, 'NUM.  OF  SAMPLES S ', 14 ) 

100  CALL  CLOSE ( 8 ) 

CALI  EXIT 
END 
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C***  PROGRAM  1NANGL 

C***  THIS  PROGRAM  COMPUTES  THE  IMTIAI.  ANGLES  THETA  AND 
C***PHI  FROM  PAIR  MEAN  VALUES  AND  STORES  THEM  ON  DISC  FILE 
C***St XSTRANG.DAT.  BETA  IS  SET  TO  ZERO  DEGREES. 

C*»* 

C***  TASK  PU1LD  AS:  INANGLsI N ANGL , tl , 1 ] F4POTS/LB 

C***  UNITSaiO  MAXPUFa512 

DIMENSION  V(5) ,STATS(6,16) 

COMMON  /ASV/1F'20, IF30 
DATA  lYES/'YE'/ 

CALL  ASSIGN (  8, 'fa  Y JPPNTIT.LST; 1 '  , 16) 

CALL  FP8SF.T(8,  'APPEND') 

I  K  B  =  5 
IODaS 

RADEC=57. 29577951 

CM4WRITE  PROGRAM  TITLE  ON  TERMINAL  SCREEN 
WRITE( IOD, 2000) 

2000  F0RMATC20X, 'INITIAL  ANGLE  COMPUTATION') 

IP0ST  =  1  1  SET  POSITION  1  ONLY 

C***LOAD  PMV'S  FROM  STATISTICS  DISC  FILE 

CALL  ASS1GN(9,'SY:C0STAT.DAT;1',16) 

DEFINE  FILE  9 ( 3 , 1 9 2 , U  ,  I F20 ) 

CALL  FPBSE1 (9, 'READONLY') 

ISEC=1 

READ ( 9 ' I SEC )  ( ( ST ATS ( IS , JS ) , I Ss 1 , 6 ) , JSa 1 ,16) 

CALL  CLOSE ( 9 ) 

V(l)sSTATS(6,l) 

V(2)sSTATS(6,3) 

V(3)*STATS(6,5) 

V(4)sSlATS(6,7) 

C***WRITE  OUT  PMV'S  ON  TERMINAL  SCRFEN 
WRITE(IOD,2050)  (V(T),I=1,4) 

2050  FORMATdH  ,'PMV  1,3, 5, 7:  '  ,  4  (  2X  ,  FI  2 . 7  )  ) 

C***COMPUTE  MEAN  0£  PMVC3)  AND  PMV(5) 

VC5)aCV(2)+V(3))*0.5 

MAX*50  J  M  AX  NUM  OF  ITERATIONS 

T0L*0 .0035  ITOLERANCEa  0.2  DEG-S 

KOUNTaO 

0*VC1)*V(1)/VC5)/V(5) 

SPH=-V(5) 

CPHsSOFT ( 1 .0-SPH4SPH) 

10  CS2TRsVC4)»V(4)-MJ*SPH*SPH*CPH»CPH 

IF(CS2TR.GT.1.0)  STOP  'COS  PHI  GT  1.0' 

PH1=ATAN2(SPH,CPH) 

2010  FORMATC2(2X,G14,7)) 

SI2TRsS0RT(l .0-CS2TP) 

PH2sATAN2(SI2TP,SORT(CS2TR) ) 

IF(PHl.LT.O.O)  PH2s-PH2 
DEl.aPH2-PHl 

D  WRITE(IUD,2010)  PH  1 , DF  L 

IF( ABS(DEL) .LT.TOL)  GO  TO  20 
SPH*SIN(PH1+DFL) 

CPHsSORTC 1.0-SPH4SPH) 

KOUNTsKOUNT+1 

IF(KOUNT.GT.MAX)  STOP  'EXCEFDED  50  ITFRATIONS' 

GO  TO  10 

20  CTHa-V(4)/CPH 

STH*SQRT( 1 .0-CTH4CTH) 

IFCV(l).LT.G.O)  STHs-STH 

THETA*ATAN2(STH,CTH)*RADEG 

BFTAaO.O 

,  PHI*PH 1 *RADFG 

Ik  .  . . . . . . 
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PMV35s-SPh*C6TA 

P*V7=-CPH*CTH 

«RITE(I0D,2020)  THETA,  PHI,  BET  A,  PM  VI  ,PMV35,PMV7 
2020  FORKAT(5X,'THETAs',G14.7,2X,'PHl=',G14.7,2X,#BETA=',G14.7, 

1  /,5X,'PMVls',G14.7,2X,'PMV35s',G14.7,2X,'PMV7s',G14.7) 

C***WR1TF.  ANGLES  TO  DISC  FILE 

CALL  ASSIGN(10, 'SYjSTRANG.DAT; i ' ,16) 

DEFINE  FILL  1 0 ( 1 , 6 , U , IF30) 

CALL  EDBSET( 10, 'NEW') 
wRUEdO'IPOSl  )  THETA, PHI, BETA 
CALL  CLOSF(IO) 

C***SFI  PRINTED  OUTPUT  FLAG 

IYslYES  'SET  TO  ALWAYS  PRINT 

IFCJY.NE.I YES)  GO  TO  100 
WP1TF(8,2040)  (V(I),I»1,4) 

2040  FOR  M AT  C 1 H  ,10X,#INITAL  ANGLES  COMPUTED  FOR  I V , 5X , 'PMVC 1 )s* , 

1  G14.7,2X,'PMV(3)s',G14.7,2X,'PMV(5)x',G14.7,2X,'PMV(7)s', 

2  G14.7) 

WRITECR,2020)  THETA, PHI, BETA, PMVi,PMV35,PMV7 
100  CALL  CLOSE ( R )  * 

CALL  EXIT 
END 
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C**»  PROGRAM  CDANGL 

C***  THIS  PROGRAM  JNTtGRAlES  THE  OMEGA  VECTOR  STORED  IN 
C**»SY IOMEGA. OAT  TO  PRODUCE  THE  THREE  ROTATlOf  A NGLES (THETA, 
C***PH1  AND  BETA).  IT  STORES  THETA,  PHI  AND  BF TA 
C  *  *  *  A  N  D  KEAN  SOU ARE  INTEGRATION  ERROH  ON  DISC  FILE 
C***SYJ ANGLES.DAT.  THE  INDEX  TO  SYsANGLLS.DAT  IS  STORED 
C***IN  ARRAY  POSITION  (2)  OF  INDEX  FILL  SYUNDACC.DAT. 

C*** 

C***  TASK  BUILD  AS  CO ANGL=CO A NGL , AH 3 1 N M , DI A NGL , I 1 , 1 ) F4P0TS/LB 
C***  UNITS=12  MAXBUF=512 

DIMENSION  I POSt 3) ,1R(3) ,  1SUF(3) , IHPS(3) ,1TST(3) 

DIMENSION  1SBL( 3) ,  I  FBL  ( 3 ) , K END ( 3 ) , TS AMP 1 3 ) , AD J { 3 ) , A DSL  ( 3 ) 
COMMON  Y 137,4) ,DY(36,4) , CODATA ( 36 , 4 ) 

COMMON  /ASV/1E15, IF24 , 1119 , IF 30 
EXTERNAL  DIANGL 
DATA  lYES/'YK'/ 

CALI.  ASSIGN  («  ,  'SY  iPRNTIT.LST;  1  '  ,  1  6) 

CALL  FDriSE'KR,'  APPEND') 

1KB=5 

IODrS 

C****RITE  PROGPAM  TITLE  ON  TEPMJNAL  SCREEN 
WRITE(IOD,2000) 

2000  FORMAT (20X, 'ROTATION  ANGLE  INTEGRATION') 

I  POSTs:  1  1 5ET  POSITION  1  ONLY 

C*** ASSIGN  AND  DEFINE  INPUT  FILE 

CALL  ASSIGN ( 9, 'SY lOMFGA.DAT;  1 ',1b) 

DEFINE  FILL  9lb5,256,U,IF15) 

CALL  FDBSEI (9, 'READONLY') 

C***REAP  POINTFK  Index  FILE 

call  ASS ION ( 1 0, 'SY : I NDACC.DAT, *1', 16) 

DEFINE  FILE  1 0 ( 1 , 30 , b , IF 1 9 ) 

CALL  FDBSFTC10, 'READONLY') 

READ ( 1 0 'I POST)  IPOS, IR, I  SUB, IHOS,ITST, JSBL , I FBL , KEND , TS AMP 
CALL  CLOSE (10) 

C***SFT  INITIAL  INDEX  VALUES 

I BLKsISCL ( 2 )  1INPUT  BLOCK  INDEX 
IOBLK=ISBL(?)  JOUTPUT  BLOCK  INDEX 
C***SET  INITIAL  VALUES  FOP  ENTRY  INTO  INTEGRATION  ROUTINE  AM3INM 
C*  =  * READ  INITIAL  ANGLE  VALUES  FROM  DATA  FILE 
CALL  ASSIGN Ul ,'SY SSTRANG.DAT; 1', 16) 

DEFINE  FILE  11 ( 1 , 6 , U , I F30  ) 

CALL  FL'BSETdl, 'READONLY') 

READ ( 1 1 '1POST)  THFTA1 ,PHI 1 , B  E  T  A  1 
CALI.  CLOSE  (11) 

RADEG=57, 29577951 
C***N.B. SANGLEDCT'S  SET  TO  ZERO 
DO  10  1=1,4 
Y  (I  ,  1  )  =  T  H  E  T  A  1  /  R  A  D  E  G 
Y (I  ,2)*PH11/RADFG 
Y(I  ,3)=HETA1/RADEG 
Y ( 3 ,4) =0.0 
DO  10  J=l,4 
10  DY ( I  ,  J ) =0  *  0 

LS  =  36 

LOT=lb*(IFfaL(2)-ISBL(2) )+KEND(2)/P 
H  =  TSAMP(2)*(',001 

C»**ENTFR  OMEGA  OFFSETS  AND  SLOPE  CORRECTIONS 
DO  15  1=1,3 
A  DJ ( I  )  =  0 . 0 
15  ADSL ( I ) =0  «  0 

D  »RITR(IOD,2010) 

2010  FORMAT(5X,'EMFR  OMEGA  OFFSETS  — POSITIONS  1,2,3  ONLY') 

0  READ(  JKB,  1020)  ( AD  J  ( I )  ,  1  =  1 , 3 )  .  ,.M 


I  020  FORMAT (3F15.7) 

D  w^lTt(  JPD,2<>15) 

2015  KR«'AT(bX,  'frJ  1 1-  P  ON^GA  SLOPE-  CORF  F  Cl  1  GI«S -- t  ,  2 , 3  '  ) 

P  hfcAl>(lKb,102<»j  (AUM  (l)flsl,3) 

C***ASSlGr:  AND  DEFINE.  OUTPUT  F  1LE' 

Call  ASSIGN ( 12, 'SY:  ANCLFS.DAT? 1 ',16) 

DEFINE  F ILF  12(65, 25b, U,IF24) 

CAM,  FD«SET( 12,'NEF') 

C***FEAD  It.  bLOCK  OF  1 NPUT  DATA  AND  INDEX  BLOCK 
20  PEAP(9'1BLK)  ( (C0PATACK1 ,1) ,1=1 ,4) ,KI=5,LS) 

JBf,K  =  JhLK+l 

C***ADJUS1  OMEGA  INPUT  LATA  FOP  OFFSET  A*'D  SLOPE 
DO  30  KI=5,LS 

TsFLDAK  (IbLK-ISbL(2)-l )*32+  (M-5))*H 
DO  30  1=1,3 

3  0  CODATA  ( K 1 , 1  )  sCC’DAT  A  (  K I  ,  1  )  -  ADSL  (  1  )  *T-AD  J  (  J  ) 

C***I NTEGRATE  BLOCK  OF  DATA 

C*** 

CALL  AM3INM(DIANGL,H,LS) 

C*** 

C***IF  OF  LAST  BLOCK, STORE  ZEPO  IN  RFMAINDER 
JF(IBLK.LT.TF6L(2)  }  GO  TO  60 
LOSel-S+1 

IF (L0S.G1 , 3b)  GO  TO  60 
DO  50  J=LOS,36 
DO  50  1=1,4 
50  Y ( J , I ) =0 , 0 

C***CDNVERT  ANGLES  f  ROC,  RADIANS  TO  DEGREES 
60  DO  65  J=5,3b 

DC  65  1=1,4 

65  Y(J,I)=Y(J,J)*RADEG 

C***WR 1 TF  INTEGRATED  BLOCK  TO  DISC  FILES  AND  INDEX  BLOCK 

NRITF(12'ICeLK)  {(Y(KI,I),I=1,4),KI=5,36) 

IOHl.K  =  IOBLK  +  l 

C***IE  ON  LAST  BLOCK ,  REDUCE.  LS  TO  LAST  WORD  +  4 
IF(IObLK,EO.IF  BL(2)  )  LS=  (  KEND  C  2  )  /  4  )  t-4 
C***TEST  FOR  END  OF  DATA 

IFUBLK.GT.1F6L(2))  GO  TO  80 

C***HESET  APRAYS  WITH  1NITAL  CONDITIONS  FOR  NEXT  DATA  BLOCK 
DC  70  1=1,4 
DCj  70  J=l,4 

Y (J,I)=Y (J+32,I)/RADEG 
DY(J,I)=DY(J+32,I) 

70  CODATA(J,I)=CODAfA(J+32,I) 

GO  TO  20 

C***CL05E  ALL  OPEN  FILES 
80  CALL  CLOSF ( 9 ) 

CALL  CLOSE (12) 

C***cr»MPUTE  LAST  WORD  INTEGRATED  AND  LAST  BLOCK  WRITTEN  TO  DISC 
KE.  NP(2)  =  (LS»4)*4 
IFBL(2)=I0BLK-1 

C***WPITE  ON  TERMINAL  SCREEN  INFORMATION  ON  INTEGRATED  DATA 
WRITE( I0D,20  20)  I P ( 2 ) , I  SUB ( 2 ) , I HDS ( 2 ) , ITST ( 2 ) , I  POST 
2020  FORMAT ( 1 H  , 'RECORD  NUM 1 3 , 5X , 'SUBJECT  NUM:',I3,5X, 

1  ' HOSP  NUM:',I6,5X,'TEST  NUMJ', 13, 5X, 'POSITION', 13) 

HRITE(I0D,2090)  1 SBL( 2 ) , IFBL ( 2 ) , K END ( 2 ) 

WRITE ( J0D,2J  00)  THETA  1 , PHI 1 , BETA  1 
2100  FPRMATUH  ,5X, 'INITIAL  ANGLES S ' , 3 ( 2X ,G1 2 . 5 ) ) 

WPIT£(IOD,205O)  ( ADJ (I), 1=1, 3) 

2050  FQRMATMH  ,  'DATA  ADJUSTED  USING  t '/3X  , 'OE  FS  ^TS !  '  ,  3  (  X  ,G1 4 . 7  )  ) 
WPJ7E(I0D,2060)  (ADSL(I) ,1=1,3) 

2060  FORMAT ( 3X  » '  SLOPES J ' , 3 ( X ,G1 4 , 7 ) ) 

C*A*IF  DATA  LOOKS  GOOD— STORE  INDEX  INFO  AND  CARRY  ON 


D 

2030 

D 


*R1TE(IOU,2030) 

FORMATUOX,  'DOES  IT  LOOK  OK?  (YES/NO)') 
RFAD(1Kb,I010)  IY 


r 


D  IF(IY.NE.IYES)  STOP  'INTEGRATION  ABORTED' 

C***SET  PRINTED  OUTPUT  FLAG 

1Y1=TYES  J SET  TO  ALWAYS  PRINT 

IF(IYI.NE.IYES)  GO  TO  100 

wRTTL(8,207O) 

2070  KiRMATllH  , 1 9X , 'ROTATION  ANGLF  INTEGRATION  COMPLETED  ON'/) 
WRITE (8,20/0)  JR(2), JSUB(2) ,IH0S(2) , IT  ST ( 2 ) , IPOST 
WRTTF(B,2090)  1SLLC2) ,1FBL(?) , KEND ( 2 ) 

W  PIT F(h, 2100)  THETA  1  ,  PHI1 , B  E  T  A  1 

2090  FOKNAT(lh  , 'INITIAL  bLOCK  J ', 14, 2X, 'FINAL  BLOCK i ' , I  4 , 2X , 

1  'last  *ukd:',T4) 

W  R 1 TE ( H , 2  0  50 )  l A U J  d ) , I  =  1 , 3 ) 

"RI'J  E(8,2C>bO)  (  ADSL  (I  )  ,  1  =  1,3) 

100  CALL  CT  DSE(R) 

CALL  EXIT 
END 


SUBROUTINE  D1 A  NGL ( LY , LD Y ) 

C***TH1S  SUBROUTINE  CONTAINS  THE  DIFFERENTIAL  EQUATIONS 
C***  WETCn  ITETNE  THE  SOLUTION  TC  THP  ROTATION  ANGLES 
C***Tri*TA,FHJ  AND  pM*.  THITA  rrARPAY  POS  (-,1), 

C***PM  ssARRAY  pnSC-,2),  BETA  ssARLAY  PUS(-,3). 

COMMON  Y ( 37,4 ) ,LY( 3ft ,4 ) , CODATA (36,4) 

STH=S1N(Y(LY , 1)  ) 

C7  RsSuR  T  (  1  .  o-S'J  H*STR) 

SPHsSIN (Y (LY ,2)  ) 

CPP=SOPT(l ,L-SPH*SPH) 

TPHsSPB/CF’H 
SBT=SIN(Y(Lj ,3)  ) 

CMT  =  SORT( 1 ,(>£TT*SB1  ) 

DY(LDY  ,1 )=1PH*(STR*C00ATA(H'Y,1 ) 4 CTH *CDD AT A ( LDY , 3 ) ) +COD AT A ( LDY , 2 ) 
Dy(LPY,2)=CTf:*CrPATA(LnY,l)»STH*CODATA(LDY,3) 

DY(I  OY,3)  =  (STH*COOfcTA ( LDY , 1 ) ♦CTH*roL AT  A ( LDY , 3 ) ) /CPH 

RETURN 

F.ND 


1 


C***  PROGRAM  F1LANG 

C***  THIS  PHCKjK  AM  FILTERS  DATA  IN  S  Y  5  ANGLFS.DAT  USING  AN  bTH  ORDER 
C***Rfe  CURSIVE  HUTTtkwLRTH  FILTER.  THE  FILTERED  DATA  IS  STORED  IN 
C***DISC  FILE  SYSNEWANG.DAT. 

C*** 

C***  TASK  BUILD  AS  FI  LA  NG=FI  LANG  ,  BN  DP  AS  ,  1 1  ,  ID  F  4PD1  S/L.B 

C***  UN'ITSsll  MAX6UF=512 

DIMENSION  KFLAT(32,4) , SI DATA ( 2000 ) ,IP0S(3) ,IR(3) , ISU B ( 3 ) 

D1  MENS  1  UN  IH0SC3)  ,  ITST  C  3  )  ,  I SBI.  C  3  )  ,  I  FBI-  (  3  )  ,  KEND  (  3  )  ,TSAMPC3) 
COMMON  /ASV/IF15,IF 1  9 , 1 F  2  5 
DATA  lYFS/'YE'/ 

CALL  ASSIGfJ(b,'SY:PRNTIT.I,ST,*l',16) 

CALL  FDbSET(8, 'APPEND') 

IKB=5 

I0L>=5 

C**#WRITE  PROGRAM  TITLE  OP  TERMINAL  SCREEN 
WRITE! 100,2000) 

2000  F0PMAK20X,  'ANGLES  FILTERING') 

IPOSTsl  1  SET  POSITION  1  ONLY 

C***ASSJGN  AND  DEFINE  INPUT  FILE 

CALL  ASS1 GN( 9, 'SY: A NGLFS.DAT, •  1 ',16) 

LEFINF  FILE  9 ( 65 , 256 , U , I F i 5 ) 

CALL  FDBSE1 (9, 'READONLY') 

C***ASSIGN  AND  DEFINE  OUTPUT  FILE 

CALI.  ASSIGN  (10, 'SY:  NEWANG.DAT  ;1',  16) 

DEFINE  FILE  1 0 ( 65 , 2 5 6 , U , I F25 ) 

CALI,  FDPSFTf  10, 'NEW') 

C***RFAL  POINTER  INDEX  FILF 

CAl L  ASSIGN ( 1 1 , 'SY: JNDACC.DAT; 1 ' , 1 6) 

TEFINF  FILE  11 (1 ,30,U,IF19) 

C  A  I  L  F  DBSF'T  (  1  1  ,  'READONLY') 

READ  (  11  'I  POST)  I  PC'S  ,  IF  ,  1  SUB  ,  1  HOS,  ITST,  ISBL,  IFHL.  ,KEND,1  SAMP 
CALL  CL0SF.C11  ) 

C***FN'TF  R  LOWFR  AND  UPPER  BANDPASS  FRF  UUEF'Cl  F'S 

FC1=0.50  • LOWER  SET  TO  0.50  HZ 

F  C  2  *  1  0  .  l>  ‘UPPER  SET  TO  10.0  hZ 

C***SET  INITIAL  INDEX  VALUES 
IBLK=ISBL(2) 

LS  =  3? 

LPTsLS*(lFbL(2)-ISHL(2)  )-fKEND(?)/4 
FSslOOO.O/TSAM  P(2) 

11=1 

C***LtJAD  ALL  SAMPLES  OF  ANGl,ES(-,l)  INTO  S I  D  A  T  A 
10  READ(9'IBLK)  (  (RF'LAT(KI,I)  ,1  =  1 ,4)  ,  K  1  =  1  ,  l  S  ) 

C*** 

C***0‘J  FIRST  PASS,  I,OAD  UNFTLTFRFD  ANGLES  INTO  FILE  JO 

IF(II.EG.l)  RKlTF ( 1 n'IRLK)  ( (RFLAT(K1,I) ,1=1 ,4) ,KI=1 ,LS) 

C*** 

IRLK=TBLK4 l 
DO  20  KB=1 ,  I  S 

IND=(lHLK-ISbL(?)-l )*32+KB 
20  SIDATA(IND)=RFLAT(KP,II) 

IF(IBI.K.L0.IFHL(2))  LS  =  KFND(?)/4 
IFCIBLF .GT.IFPLC2))  GO  TO  40 
GO  TO  10 

C  *  *  * I N  C  R  F  M  E  N  T  ARRAY  POSITION  AND  IF  LAST  POSTION  FILTERED  EXIT  LOOP 
30  II=JJ*1 

C***  NOTE : DO  NOT  FILTER  ARRAY  POSITION  4 
IF(1I.GT.3)  GO  TO  90 

C***FILTEP  ONE  ARRAY  POSITION  OF  DATA ( STORED  IN  SIDATA) 

40  CALL  BMDPAS(SIDATA,L0T,FC1 ,FC2,FS) 

C***RFSET  BLOCK  AND  WORD  INDEXES 
IBLK»ISBL(2) 
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LS=32 

C***RFLOAD  HFLAX  TU  REPLACE  FILTERED  ARRAY  POSITIUN  AND  TO 
C***LOAD  SIDATA  WITH  NEXT  ARRAY  POSITION  TO  BF  FILTERED 
50  READ!  lO'IBLM  ( (RFLAT!KI ,T) ,1=1 ,4) ,KI=1 ,LS) 

10BI>K  =  IbbK 
IBLK= JHLK+1 
DO  60  KB=1,LS 
IND=(IDBLK-JSBL!2) )*32+KB 
C***LOAD  FILTERED  DATA  INTO  RFLAT 
RFLAT!KB, JI)=SIDATA(IND) 

IFCII.GE.4)  GO  TO  6  0 

C***LOAD  NEXT  ARRAY  POSITION  TO  BF  FILTERED  INTO  SIDATA 
SIDATA! INP)=RFLAT!KR,II+1 ) 

60  CONTINUE 

C***WRITE  FILTERED  DATA  TO  DISC  FILE 

WPITE!10'I0BLK)  ( ( RFL AT C KI , I ) , 1=1 , 4 ) , KI=1 , LS ) 

C***IF  ON  LAST  BLOCK , REDUCE  LS  TO  LAST  WORD 
IF! IBLK.E0.1FRLC2) )  LS=KEND!2)/4 
C***TEST  FOR  END  OF  I^PUT  DATA 

IF! IBLK.GT.IFRLC2) )  GO  TO  30 
GO  TO  50 

C*  *  *CLPSE  OPEN  FILES 
90  CALL  CLOSE ( 9 ) 

CALL  CLOSE (10) 

C***WRITE  ADJUSTMENT  INFO  ON  TERMINAL  SCREFN 
WRITE! 100,2030) 

FORMATUOX, 'ANGLES  FILTERING  COMPLETED  ON:') 

WRITE! JOD, 2060)  IR ( 1 ) , ISUB ( 1 ) , I HOS ( 1 ) , ITST ( 1 ) , IPOS ( 1 ) 

FOR m A T (  1 H  , 'RECORD  MUM;', 13, 5X, 'SUBJECT  NUM:',I3,5X, 

'HOSP  NUMJ ', 16, 5X, 'TEST  NUMJ', 13, 5X, 'POSITION: ',14) 
WRITE! 100,2070)  FC1 , FC2 

FORMAT! 10X , 'faANOPASS  FREQUENCIES :',F9#2,'  T0',F9,?,'  HZ') 
KFNDR=!KI-1 )*4 

wPITF.C  I0D,21 10)  ISBL  !  7  )  ,  I PPLK , K ENDR , LOT 
PRINTED  OUTPUT  FLAG 

IY1=IYF5  ‘SET  TO  ALWAYS  PRINT 

IFUY1.NE.IYES)  GP  TO  1 00 
WRITE! R,2030) 

WRITE! e, 2060)  IR!  1 ) ,ISUB( 1 ) ,IHOS( 1 ) ,IT  ST! 1 ) ,IPOS! 1 ) 
WPITE(B,2070)  FC1.FC2 

WRITE! 9,21 10)  ISBL!?)  ,  IOBLK , KFNDR , LOT 

FORM AT ( 1 H  , 'FIRST  BLOCK : ' , 1 4 , 2X , 'L AST  BLOCK 14 , 2X , 

'LAST  WORD:', 14, 2X, 'NUM.  OF  SAMPLES: ',  14) 

CALL  CLOSE! 8) 

CALL  EXIT 
F.ur 


2030 

2060 

1 

2070 


C***SET 


2110 

1 

100 


C***  PROGRAM  COTRAN 

C***  THIS  PROGRAM  PRODUCES  THE’  DIRECTION  COSINE  MATRIX: 


c*** 

CT  ( - ,  1  ) 

CTC-,2) 

CT(-,3) 

c*** 

CT (-.4) 

CT (  -  ,  5  ) 

CT ( - , 6 ) 

c*** 

CT  (  -  ,  7  ) 

CTC-,8) 

CT(-,9) 

C***l'SING  THE  ANGLES  STORED  IK  SY  :  NEWANG . DAT.  THE  MATRIX  IS  STOKED 

c***  in  sy jcomtrx.dat. 

c*** 

C***  TASK  BUILD  AS:  COTR A N=COTR AN , [ 1 , 1] F4 POTS/LB 
C***  IJMTS  =  12  MAXBUF=S1? 

COMMON  /ASV/IFlfe, TF24, IF19 

DIN  EM5ION  SI  ATS ( 6 , 1 F  ) ,CT(  1^0 , 1 0) , A NGL ( 32 , 4 ) , I POS ( 3 ) , 1R(3) 
DIFFUSION  I5UR  (  3 )  ,  IHOS( 33 ,  ITST ( 3) , ISBL(3 ) , IFHL ( 3 ) , K END C 3 ) 
DIMENSION  TSA**p(3)  ,  ADJ(3) 

DATA  IYF.S/'YE'/  ,  INC/'NU'/ 

CALL  ASSIGN (8 , 'SY • PKNTIT.LST; 1 ' , 1 6) 

CAr.L  FDBSET (b, 'APPEND') 

I  KB  =  5 
IOD  =  S 

C***WRITE  PROGRAM  TITLE  ON  TERMINAL  SCREEN 
WRITE ( lot) ,  200f* ) 

2000  FOPMAT(20X, 'TRANSFORMATION  MATRIX  COMPUTATION') 

1  POSTs)  I  SET  POSITION  1  ONLY 

C**  *  ASSI GN  AND  DEFINE  OUTPUT  FILL 

CALL  ASSIGNC9, 'SY: COMTRX.DAT ? 1 ', IB) 

DEFINE  FILE.  9  (  1  7  0 , 2  4  0  ,  U  ,  I  FI  t  ) 

CALL  FDBSRTC9,'NEW') 

C***READ  POINTER  INDEX  Fill. 

CALL  ASSIGN  C  IP,  'SY:  I  NO  ACC.  DAT;  1  '  ,  1  f>  ) 

DEFINE  FILE  1  (»  (  )  ,  30  ,  U  ,  1F19) 

READ (10' I POST )  IP0S,1R,ISUB, 1 HOS , ITST , ISBL , IFF-L  ,  KEND  ,  TSAMP 
CALL  CLOSE ( 10) 

C***SET  INITIAL  INDEX  VALUES 

IBLKbISBL(2)  JINPUT  BLOCK  INDEX 

I0BLK=1  'OUTPUT  BLOCK  INDEX 

IF(IP0ST.Eo.2)  IUBLKsIObLK+I 70 
I F ( I POST . EG . 3 )  IOBLKsIOBLK+340 
ISBL(3)=IOBLK 

KCHKsO  'CYCLE  INDEX 

KTST=0  1  TEST  TO  DETECT  DISC  WRITE 

LS=32  1SAMPLES  PER  INPUT  BLOCK 

LOTsLS»(IFbL(2)-ISPL(?))+KENDC2)/4 

H*TSAMP(3)/I0o0.0 

I  T  Z  *  I Y  F  S 

RADEG=57. 29577951 
C***ASSIGN  AND  DEFINE  INPUT  FILE 

C  A  f,L  ASSIGN!  11  ,  'SY: NEWANG. DAT  ;1  ',16) 

DFEINL  FILE  1 1 C b5 , 2 56 , U , I F24 ) 

CALL  FDRSETU  1  , 'READONLY') 

C***PF.AD  BLOCK  OF  INPUT  DATA  AND  INDEX  BLOCK  AND  CYCLE 
40  PFAD(ll'IHLK)  ( ( 6 NGL ( Y I , I ) , 1  =  1 , 4 ) , K I = J  ,  LS  ) 

IPLKsILLn+1 

KSTP=KCHK*3? 

KCHK=KCHK+1 

C*  *  *CON  VERT  ANGLES  FROM  DFGREES  TO  RADIANS 
DO  50  J=i,LS 
DC  50  1  =  1 ,4 

50  ANGL(J,l)sANGL(J,I)/RADEG 

C*#*COMPUTE  AND  STORE  TRANSFORMATION  MATPIX 
DO  RO  K 1=1 ,LS 
K I S*K I ♦K5TP 

C***COMPUTE  TRIG  FUNCTION  VALUES 
STH=SIN(ANGL(K1 , 1 ) ) 
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s p h = s n  unci u 1,2) ) 

&eT:Slf'(AN',:M^l,3)) 

CThsSdP'J  (  1  .  n-.si  U  *  S  T  M  ) 

CPHsSQPT  C  1  .  0-SPH4SPH  ) 

CUIsSOt-T(l  .<i-Shi*3bT) 

C***LOAP  MATRIX 

CTCK  IS,  1  )sCTH*CPT+SlH*SPH*SBT 
CT(KIS,2)=CPH*SBT 
CT(KIS,3)=-STH*CPT+CJH*SPH*5B7 
CTCKIS, 4)=-CTH*SBT+5TH*SPH*CBT 
CTCKIS, 5)=CPH*CBT 
CT(KI3,t>)sSTH*SPT  +  CTH*SFH*CPT 
CT(KI£, 7)=STh*CPH 
CT(KlS,P)=-bPH 
CT(KIS,9)=CTH*CPH 
80  CTC* IS, 1 0)=n.0 

C***IF  LAST  INPUT  bLOCK  HAS  BEEN  RtAL—EXIT  LOOP  HERE 
JFflBLK.Gr.JFPLC?))  GO  TO  140 
C***IF  3  CYCLES  COPPLTF-T,  SET  FOR  8  OUTPUT  BLOCKS  — EXIT 
C***  TO  KPITE  TO  DISC  SECTION 
ICNLVsR 

I F ( K  CHS . Gt • 3 }  Go  TO  3Sn 

C*** IF  ON  LAST  INPUT  BLOCK , REDUCE  LS  TG  LAST  kO^D 
130  TFCIPLK.LT. IFHL( 2) )  GO  TO  40 

LSs(KEN>(2)/4) 

GO  TO  40 

C***LUIPUT  TEST  SECTION  — L’SFD  OK  LAST  INPUT  BLOCK  ONLY 
C***DFTFP»INE  If  tvHICH  OUTPUT  BLOCK  LS  OCCURS 
140  LOSsI +LS+KSTP 

ip  u.ns.c;r.89)  go  to  290 

IFCLOS.GT.77)  GO  T(i  270 

IFCLOS.GI.65)  GO  Trj  250 

IFCLOS.GT.53)  Gn  TO  230 

IFCI-0S.GT.41  )  Gn  TO  210 

IFCL0S.GT.29)  GO  TO  100 

IFCLOS.GT.l 7)  GO  TO  170 

IF  CL0S.FQ.17)  IT 2s I  NO 
LUSF=1 H 
I0NUV=1 
GO  TO  320 

170  IFCL0S.E0.29)  ITZsINO 

LOSF  =  2  8 
lONUMs? 

GO  TO  320 

190  IFCL0S.E0.41 )  IT ZsTfp 

LUSF=40 
I0NUMS3 
GC  TO  3  2u 

210  IFCL0S.tQ.53)  ITZ=JM) 

LOSFS52 
I ON  U  Vs  4 
GO  TO  320 

230  IFCL0S.tO.o5)  IT7.=  IH0 

LOSF  sf>4 
IONUMsS 
GO  TO  320 

250  IFCLCS.tQ.77)  ITZsif’Q 

L  0  S  F  s  7 1* 


270 

290 


IONUMsfe 
GO  TO  320 

IF  C  LOS  .  F.Q  ,  8  9  )  ITZsINO 
LCSFs@P 
I0MIV  =  7 
GO  TO  320 


IFCL0S.E0.101)  ITZ*1 NO 
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] ONUMrfi 

C****RTTF  ZERU  INTO  RE  BANDER  OF  LAST  OUTPUT  BLOCK 
320  IF(ITZ.FO.INO)  GO  TO  360 

DO  340  K I =LOS , LOST 
DO  340  1  =  1  ,  10 
340  CT(KT,I)=0.0 

I  T  Z  =  I Y  F:  s 

C***WR1TE  OUTPUT  BLOCKS  ONTO  DISC 
360  KI  0  =  1 

DO  380  J  =  1,IC1NUM 
Y IF=K10+1 1 

WRITF.(9'lPbLK  1  ((CT(KI,I),I  =  1,10),KI=KIC,K1F) 

I0BLK=I0BLK+1 
380  K I 0=K 1 0+ 1 2 

C***RFSFT  CYCLE  INDEX  Af'D  SET  DISC  WRITE  TEST  INDEX 
KTST=1 
K  C  H  F  =  0 

TF(IB  l,  K.bF. IF  LI. (2))  GO  TO  130 
C***CLOSF  ALL  OP£N  FILES 
CALL  CLOSE ( 9 ) 

CALL  CLCSE(ll) 

C***COMPUTF.  LAST  «ORD  AND  LAST  BLOCK  WRITTEN  TO  DISC 
KEND(3)  =  (L0S-(  (I0N'JM-1)*12  +  5))*10 
IFPL(3)=I0ELK-1 

C***WR1TE  Of  TERMINAL  SCREEN  SCREEN  INFORMATION  ON  COMPUTED  KATE] » 
WRITE (100,20 30)  IR(3),1SUB(3) , I HCS ( 3 ) , I 1ST ( 3 ) , I POST 
203C  FORM  AT ( 1 H  , 'RECORD  M'M : ' , I  3 , 5X , 'SUBJECT  NUM J ' , I  3 , 5X , 

1  ' H  OSP  NUN:', Ib,5X, 'TEST  N UK : ' , I  3 , 5X , ' PCS 1 T I  ON :  '  , 1 3 ) 

WRITE! I OD, 2090)  1 SR L ( 2 ) , I FBL ( 2 ) ,KEND(2) 

WRITE  (100,2  090)  ISBI  (3)  ,IFBL(3)  ,  KENDO) 

WRITE(1U 0,2060)  LOT 

2060  FORMA T(1H  ,5X, 'NUMBER  CF  SAMPLES ! ' , 1 6 ) 

C*  *  *  I F  DATA  LOOKS  GDOD--CARRY  ON 
D  WRITE( IUD , 2050) 

2050  FOPN'AK  10X  ,  'DOES  IT  LCOK  OK?  (YFS/KO)') 

D  REAP (1KB, 1010)  IY 

D  IF(IY.NE. IYFS)  STOP  'MATRIX  COMPUTATION  ABORTED' 

C***WRITF  INDEX  INFORMATION  TO  DATA  FILE 

CALL  ASSIGN  (  12,  'SY  :  I  NT.  ACC. DAT  J  1  '  ,  lb) 

DEFINE  FILE,  1  2  (  1  ,  30  ,  U  ,  I F 1  9  ) 

CALI  FDbSEl (12, 'OLD') 

WRITE (1 ?'IPDST)  IPOS, TR,1 SUP, IH0S,ITS1 , I5BL , I FBL , KEND , TS A «p 
CALI  CLOSE'  (12) 

C***SET  PRINTED  OUTPUT  FLAG 

I Y 1 = 1 Y F S  !SET  TO  ALWAYS  PRINT 

IF(IYJ .NE.IYES)  GO  TL  400 

WRITE(B,2L7<i) 

2070  FORMAT ( 1 H  , 1 ?X , 'TRANSFORMATION  MATRIX  CUMPUTFD  FOR'/) 

WRIT E( 8, 2030)  1 R ( 3 ) , I SUB ( 3 ) ,IH0S(3) ,ITST( J) ,TPOST 
WRITE’ (8 ,7090  )  ISBLf  3),IFBL(3)  ,KFND(3) 

2090  FORMAT  (  1  H  , 'INITIAL,  BLOCK  :  '  ,  I  4 , 2  X  ,  '  F I  N  A  L  BLOCK  S  '  ,  1  4 , 2X  , 

1  'LAST  WORD;', 14) 

400  CALL  CLCSF(R) 

CALL  EXIT 
END 
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C***  PROGRAM  CUACCL 

C***  THIS  PROGRAM  USES  PAT  A  FPQK  SYrCODATB.DAT  AND 
C***SY  jCGMTkX.DAT  TO  COKPUTF  THE  INERTIAL  ACCLER  AT  1  ON 
C***OF  THE  ACCELEROMETER  PLATFORM  ORIGIN.  THE 
C***ACCFLFPAT10N  ARRAY  IS  RELATED  TO  THE  INERTIAL  AXES  BY: 

C***  R2DOTC-, 1 )=ACCELFRATION  IN  THE  ♦  X  D1RFCTION 

C***  k2D0T(-,2)=ACCELERAT10N  IN  THE  ♦  Y  DIRECTION 

C***  P2DOT(-,3)=ACCFLERATTON  IN  THE  +  Z  DIRECTION 

C**»  R2DOT(-,4)=ZERO 

C*»*THIS  ARRAY  IS  STORED  IN  DISC  FILE  SYiOPGACC.DAT. 

C *** 

c***  TASK  BUILP  as:  CCACClsCOACCL, tl , n F4POTS/LB 
C***  UMTS=12  MAXbUFs512 

DIMENSION  DAT A( 9b, 8) ,CTIH(96, 10) , P 2D0T ( 96 , 4 ) , ASUM ( 3 ) , IPOS (3) 
DIKE  NS  I  ON  lR(3),ISt'FU3),IHOS(3)  ,ITST(3)  f  ISBLC3)  ,  IFBL(3) 
DIMFNSICN  KENDC3) ,TSAKP(3) , ADJC3) 

C  0  M  E;  C  F  /AStf/IF17,IF1«,IFife,IF21 
DATA  1YES/'YF'/,IN0/'N0'/ 

CAL!  ASSIGN(8,'SY:PRKT1T.LST;1 ',1b) 

CALL  FDBSET(B, 'APPEND') 

TKP  =  S 
1 0  D  s  5 

C***WPITE  PPCjGFAm  TITLE  ON  TERMINAL  SCREEN 
KPITE(T0D,2000) 

2000  FORHAl (20X, 'COMPUTE  ORIGIN  ACCELERATION') 

1P0ST=1  ! SET  POSITION  1  ONLY 

C***ASSTGN  AND  DEFINE  INPUT  FILES 

CALI  ASSIGNf  9, 'SY :CODATB»DAT; 1 ',1  6) 

DEFINE  FILE  9(130, 2*>t- ,  U  ,  IF1  7  ) 

CALL  FD»SET(9, 'READONLY') 

CALL  ASSIGNU0,'SY:C0MTPX.DAT;1',1B) 

DEFINE  FILE  10(170, 240, U, IF1  f>) 

CALL  FDbSFTdO, 'READONLY') 

C***READ  INDEX  FILE 

CALL  ASSIGN (11 , 'SY: INDACC.DAT; 1', 16) 

DEFINE  FILE  1 1 C  1  ,  30  , U  ,  IF  1 9 ) 

CALL  FDBSLTU1  ,  'READONLY') 

READ ( 1 1 ' IPOST )  IP0S,1P,ISUB,IH0S,ITST,ISBL,IFBL,KEND,TSAMP 
CALL  CLOSE (11) 

C***SET  INPUT  ImUFXFS 

k i f * 1 6  Inumber  of  input  samples  per  block 

ILFsR  iNMVBER  OF  INPUT  ARRAY  POSITIONS 

C***FMEP.  OFFSETS 

DO  10  la  1,3 
10  ACJ(I)e0.n 

D  HRITF( 100,2010) 

2010  FORMAT ( 1  OX , 'ENTER  ACC  0FFSFTS--1 , 2 , 3 '  ) 

D  READ (JKb, 1050)  ( A D J ( I ) , I s 1 , 3 ) 

1050  F0P«AT(3FJ 5.7) 

C***0PEF  OUTPUT  DATA  FILL 

CALL  ASSIGN(12,'SY:PPGACC.DAT;l ',16) 

DEFINE  FILE  12(65, 256, U,IF21 ) 

CALL  FDRSET(12,'NFW') 

C***INITI AL1ZF  INDEXING  VARIAPLES 

IBLKsISBL(l)  IlNPlIT  DATA  BLOCK  INDEX 

IGPLKsI  SHI,  (  2  )  ’OUTPUT  BLOCK  INDEX 

ICBLKTslSBL(3)  J  ORTHO  TPANS  MATRIX  BLOCK  INDEX 

LS  =  KIF  1  INPUT  DATA  SAMPLES  PF.R  BLOCK 

ISOs 1 2  10RTHC  TRANS  MATRIX  SAMPLES  PER  BLOCK 

LOT s|,S*(IFBL(l  )-ISBL(l))  +  KFND(l  )/lLF 
C***READ  INPUT  DATA  AND  INDEX  BI.K  NUM 
C***PEAO  SUFFICIENT  BLOCKS  TO  FILL  96  SARPLE  ARRAY 


40  IPNUMsl 

KLBrI  BliK 
►  1S  =  1 

50  KISE=MS+LS-1 

KK  A  P  (  9  #  I  BLK  1  (  ({>ATA(KII  ,1)  ,1  =  1  ,  ILF)  ,  K  ]  I  =K  1  S  ,  K 1 SF) 
IBLF  =  IRLK.+  1 
MS  =  KIS  +  LS 

C***IF  ON  LAST  BLOCK  OF  1 N PUT , REDUCE  LS  TO  LAST  WUKD 
IF  CTBLK.EQ.IFBLO  )  )  LSsKEf'DC  1  ) /ILF 
C  *  *  *TF  ST  FOB  END  OF  INPUT  DATA 

IFCIRLK.GT.  IFd  C  1  )  )  GO  TO  70 
IDfl|M  =  IDNUF»  +  l 

C*  *  * TEST  IF  DATA  ARRAY  CONTAINS  9b  SAMPLES 
JF(IDNtJM.GT.INUK)  GO  Tf!  7  0 
GO  TO  50 


C***READ  IN  TRANSFORMATION  MATRIX  AND  INDEX  BLOCK 
70  IlNllMsl 

KIST=1 

80  KISTF  =KIST  +  I.S0-1 

RE  AD  (  1  0'IOBI  KTj  (  (  CT  I  N  (  K  I  ,  I  )  ,  I  =  1  ,  1  0  )  ,  M  =  KIS1  ,  MSTF  ) 
IUBLKT=!OPLNT+I 
M  ST  =  K15T  +  l.S0 

C»**IF  ON  LAST  BLOCK  ,P&I'UCE  LSO  TO  ?,AST  WORD 
IFdOBI  KT.FQ.1F  BLC3)  1  LSG  =  K  FML>  (  3  )  /  1  0 
C***TEST  FOP  FM>  OF  TRANS  MATRIX  DATA 

IFdUELKT.GT  .IFBLC311  GO  TO  100 

lTNt'M  =  ITNO>M  1 

C*  *  * TEST  IF  MATRIX  ARRAY  CONTAINS  9b  SAMPIFS 
lFClTNIIM.GT.bl  GO  1 0  100 
GO  TO  R <i 

100  NPLN  =  IHLK-KLB  IKON  BLOCKS  REAL)  THIS  LOOP 

NSA“sNHLK*MF  INUM  SAMPLES  THIS  LOOP 

C***IF  RPTTJNG  LAST  BLOCKS  THEN  ADJUST  K'U^  SAMPLES 
IFdPLK.GT.  JFHL  Cl)  1  WSAhaCNBLK-1  )*KIF+LS 
C***CCMPUT£:  PLATFnRM  ORIGIN  INERTIAL  ACCELERATION 
DO  120  FA=1,NSA« 

ASID'CI  )=DATaCKA,5) 

ASUMf 2)=CDATACKA ,b)4DATACKA,7) )*0. 5 
ASUMC3)=DATACKA,8) 

R2D0T  C  K  A  ,  1  )=CT1NCKA,1  )*ASUM(  J)+CT]K'(KA,2)*ASUM(2) 

1  +CTINCKA,3)*ASUMC3)-ArjCl) 

R  2 DPT ( K  A , ? ) sCT 1 n  C  K  A , 4 ) *  ASUM  d ) +rT I K  C  K  A , 5 ) *  ASU  M  C  2 1 
1  +  C7 INCKA ,b)*ASUvC3)-ADJC2) 

R2DnT(KA,3)=CTINCKA,7)*ASnM( 1 ) +CT1 N C FA , b ) * ASUM C 2 1 
1  +CTINCKA,9)*AS'JM(3)  +  i  .0-AL  JC3) 

120  P2D0TCKA, 4)=0.0 

C*»*DF.TFF<m  TNE  NUMBER  OF  OUTFUT  BLOCKS  A  HI'  SFLT  INDEXES 
IF CNSAM.GT.b4)  GO  TO  ISO 
IF  CNSAM.Gt . 32 1  GO  to  140 
IFCNSAM.eq.32)  ITZsINO 
LOSF=32 

lONUMsl 

GO  TO  180 

140  I F  C  NSAM  . EQ , b4 )  TTZsINO 

LOSFsbA 
I0MIM  =  2 
GO  TO  180 

160  IFCNSAM.FO.yb)  ITZsINO 

LOSFsR 6 
IONIIMs  3 

C***IF  NECFSSAPY,  WPITF  ZERO  IN  RF  M AI NPFP  OF  LAST  OUTPUT  BLOCK 
180  IF(ITZ.EU.INO)  GO  TO  220 

DO  200  KAxNSAM+1  ,  I,  p  S  F' 

DO  200  1=1,4 
200  B  2D0T  CKA,I)*0.0 

C*»*WR1TE  OUTPUT  TCJ  DISC 


270 


i 


KlOrl 

DO  240  J=1 , IONU« 

KlFPsKIO+31 

WRITEO  2'IDHLP  )  (  (P2D0T(KT  ,  I  )  ,  Is  1 , 4  )  ,  K 1  =K  10  ,  K  IFO  ) 
JOBLKsIOBLK+1 
240  K I 0=K ] 0+32 

1TZ=I)ES 

IF  (  IRLK . LE.  IKFLC  1  )  )  GO  TO  40 
C***CLUSF,  ALL  OPEN  FILES 
CALI.  CLOSE  (  9  ) 

CALL  CLOSE { 10) 

CALL  CLOSE (12) 

C***CPFPUTF.  WOP L  POINTER  FOR  LAST  OUTPUT  BLOCK 
KENDPs4*(NSAM-(ic>M)*-l)*32) 

J0BLK=I0BLK-1 

C***WkITE  ON  TERMINAL  SCREEN  ACCELERATION  INFORMATION 
WR]TE(I0D,2140) 

WRITE  HOD. 2070)  IR(1),TSUBC1),IH0S(1),ITSTC1) , I POST 
2070  FORMAT  (  1 H  , 'RECORD  NUM  :  '  ,  I  3 , 5X  , 'SUBJF.CT  NUM  :  '  ,  I  3  ,  SX  , 

1  'HOSP  NUM:', 16, BX, 'TEST  MIB  :  '  ,  I  3  ,  SX  ,  '*>0S  IT  I  ON  :  '  ,  I  3  ) 

WFITE( IOD, 20HO) 

20BO  FORBATC7X, 'INITIAL  BLOCK ', 2X , 'FINAL  BLOCK ', 2X ,' FI N AL  WORD') 
WRIT  F.  (100,2090)  ISBL  (  1  )  ,  IFBL  ( 1  )  ,  K  END  ( 1  ) 

2090  FORM  AT ( 1 H  ,'DATA',6X,I4,9X,I4,9X,I4) 

WRITE  (1 00,2 1  00)  JSRL(2) ,  IORLK  ,KFNPR 
2100  F0RMAT(1H  ,'R?l>PT  '  ,  4X  ,  I  4 , 9X  ,  I  4 , 9>  ,  I  4  ) 

WP1TE(I0L,21 10)  T5AWP(1) 

2110  F0REAT(2X, 'SAMPLE  TIME:  ',FB.l,'  (MSECS)') 

WRITE(I0D,2120)  LOT 

2120  FORK AT(?X, 'NUMBER  OF  5 AMPLES  :  '  ,  1 4/ ) 

WRJTE( IOD, 2030)  ( ADJ(I),I=1 ,3) 

2030  F0PMATC1H  , 'D®TA  ADJUSTED  U5I «G (1 , 2 , 3 ) ! ' , 3 C 2X , G 1 4 . 7 ) ) 
C***SFT  PRINTFD  OUTPUT  FLAG 

IYlsIYFb  1SFT  TO  ALWAYS  PRINT 

IF( ! Y1 .Nt.IYES)  GO  TO  300 

WRITE(R,2140) 

2140  FORMAT! '1 ', 1 9X , 'ORIGIN  ACCELERATION  COMPUTED  FOR') 

WRI TF ( 8 , 207  0 )  I R ( 1 ) , ISUB(1 ) , 1H0S(1 ) , ITST ( 1 ) , I POST 
WR I TE ( 8 ,2160)  ISBT (2) , IFBL (2)  ,  KENP ( 2 ) 

2160  FOPMATdH  , 'INITIAL  BLOCK  14 ,2X, 'FINAL  BLOCK  :  '  ,  1 4 , 2X  , 

1  'LAST  WORD!', 14) 

D  WRITE  (8,2030)  (AO.HI),  J«l,3) 

300  CALL  CLOS*  (P) 

CALL  FXIT 
END 


F48 


C***  PRUGRA*'  FI  l  ACC 

C***  THIS  PROGRAM  FILTERS  DATA  IN  S Y : ORG ACC . P A T  USING  AN  BTh  ORDER 
C***RFCUPS  IVF  MUTTER  in  I’R  TH  FILTER,  THE  DATA  IN  S  Y  :  U»G  ACC  .  0  AT  IS 
C***RFP LACED  BY  THE  FILTERED  DATA. 

C*** 

C***  TASK  RUILL  AS!  F I L A CC=F I D ACC , bN DP AS , ( 1 , 1] F 4POTS/ LB 
C***  UMTSslO  MAXBUF=512 

DI MEN SI UN  CODATA ( 32, 4) .SIDATA (2000) , IFOSC  3)  ,  I R ( 3  )  ,  I  SUB ( 3 ) 
DIMENSION  I HOSC  3)  .ITST(B)  ,  1  SBL  (  3  )  ,  I  FPL  (  3  )  ,  K  FN  L»  (  3  )  ,  T  S  A  k'P  (  3  ) 
COE  HON  /ASV/IF22, IF19 
DATA  lYFS/'YE'/ 

CALL  ASSIGN  (  b,  'SY  SPRMIT.LST  J  1  '  ,  16) 

CALL  FPBSEK8, 'APPEND') 

IKR  =  S 

I  0  D  =  5 

C***WPITF  PROGRAM  TITLE  ON  TERMINAL  SCREEN 
WRITE(I0D,200O) 

2000  F0PMATC20X, 'ORIGIN  ACCELERATION  FILTERING') 

I P  0  S  T  =  1  'SET  POSITION  1  ONLY 

C***ASSIGN  AND  DEFINE  INPUT /OUTPUT  FILE 

CALL  ASSIGN ( 9  ,  'SY  !  ORG ACC . DAT ; 1 ' , 16) 

DEFINE  FILE  9 ( 65 , 256  ,  U , I F2 2 ) 

CALI  FDBSETC9, 'OLD') 

C***RFAP  POINTFR  INDEX  A'lLE 

CALL  ASSIGN ( 10 , 'SY! 1NDACC.DAT; 1 ',16) 

DEFINE  Flit  1 0 ( 1 , 30 , U , 1 F 1 9 ) 

CALL  EUBSETt 10, 'READONLY') 

READ( 10'IPOST)  Ifns,IR,ISOB,lHDS,ITST,ISBL,IFBL,KFKD,TSAMp 
CALL  CLOSE (10) 

C***ENTFR  LOWER  AND  UPPFR  BANDPASS  FREQUENCIES 

FCIsO.50  1  LOWER  SET  TO  0.50  HZ 

FC2=10 , 0  !UPPER  SET  TO  10.0  HZ 

C***SET  INITIAL  INDEX  VALUES 
IMLKsISHL(2) 

LS  =  32 

L0T*I.R»(1FHI  (2)-ISBL(2))+KFMD(2)/4 
FSslOOO.O/TSAMP(2) 

II  =  1 

C***LOAP  ALL  SAMPLES  OF  CODATA(-.l)  INTO  SIDATA 
10  PEAD(Q'IBLK)  ( ( COP  A T A ( K J , 1 ) , I  =  1 , 4 ) , K 1  =  1 , LS ) 

IBLK=IBLK+1 
DO  ?0  KBs)  ,1  S 

IND=(IBLK-ISPL(2)-1 ) *  32  +  K  h 
20  SIDATA ( lND)=CODATA ( KP,II ) 

IFCIBI.K.Eu.IFHLC?)  )  LS=KFND(2)/4 
IF(TPLK.GT.IFHL(2))  GO  TO  40 
GO  TO  10 

C***INCRF«EKT  ARRAY  POSTTIO*  AND  IF  LAST  P0ST10N  FILTERED  EXIT  LOOP 
30  IlsII+1 

IFflI.GT.3)  Gn  TO  90 

C*4*FILTEtJ  ONF  ARRAY  POSITION  OF  DATA  (STORED  IN  SIDATA) 

40  CALI  HNDPAS(STDAT A,f 0T,FC1 ,FC2,FS) 

C***KF.SFT  BLOCK  AND  WORD  INDEXES 
1BI,K  =  ISBL(  2) 

LS=3? 

C***RELOAD  CnDATA  TO  REPLACF  FILTERED  ARRAY  POSITION  AND  TO 
C**»LOAD  SIDATA  WITH  NEXT  A  R  P  A  Y  POSITION  TO  BF  FILTERED 
5n  PFAD(9'1BLK)  ( ( COD  A T A ( K I , I ) , I s 1 , 4 ) , K J s J , LS ) 

IORI.KslHLK 
IPL  KrJBLK-t  I 


a 


i 

4 


DO  60  KBs  1 , LS 
IND*(inBLK-ISBL(2))*32+KB 


C****-® 


¥  W 


COO AT A ( KB, 1 1 )=S JDATA ( I  NO) 

IFCTT.GE.4)  GH  TO  6  0 

C***LOAD  NEXT  ARRAY  POSITION  TO  BE  FILTERFD  INTO  SIDATA 
STOATA(lND)=CODATA(KB,II+l  ) 

60  CONTINUE 

C***WRITE  FILTERED  DATA  TO  DISC  FILE 

WPITE(9'10RLK)  ( (CODATA C  K I , I),lsl,4),KJsl,LS) 

C***IF  ON  LAST  BLOCK, REDUCE  LS  TO  LAST  WORD 
IF(IBLK.EQ.IFbL(2) )  !S=KEND(2)/4 
C*»*TEST  FOR  END  OF  INPUT  DATA 

lF(IBLK.GT.IFbL(2))  GO  TO  30 
GO  TO  50 

C*»*CLOSE  OPEN  PILE 
90  CALI.  CLOSE'  (  9  ) 

C*  *  *  WR I TE  ADJUSTMENT  INFO  ON  TERMINAL  SCPFEN 
WRITE ( 100,2030) 

2030  lORMflTdOX,  'ORIGIN  ACCELERATION  FIL1ERING  COMPLETED  ON;') 

WRITE (IOD, 2060)  1R( 1 ) , ISUR ( 1 ) , IHOS ( 1 ) , I TST ( 1 ) , I POS ( 1 ) 

2060  FOR  M  AT  (  1 H  , 'RECORD  NUM;', I3,5X, 'SUBJECT  NUM  S  '  ,  1 3 , 5X  , 

1  ' HOSP  NUM;', 16, 5X, 'TEST  NUM I ' , I  3 , SX , ' POSI T ION ; ' , 1 4 ) 

WRITE(IOD,207P)  FC1,FC2 

2070  FOPPATMOX, 'BANDPASS  FREQUENCIES  ;'  ,F9. 2  ,  '  T0',F9,2,'  HZ') 
KFNDRs(KI-l  )*4 

WRITE!  IOD,  21 10)  I SBL  (  2  )  ,  I  OB!,K  ,  K  EN  DR  ,  LOT 
C***SET  PRINTED  OUTPUT  FLAG 

IYlsIYES  J SET  TO  ALWAYS  PRINT 

IFCIY1  .N’E.I  YES)  GO  TO  100 
WR.  ITE  (  b  ,  20  30  ) 

WRITE! R  ,2060)  IR  !  1  )  ,  ISUB ! 1 ) , IHOS f 1 ) , ITST (  1  )  ,  IPOS! 1 ) 

WRITE. (8,2070)  F  C 1  #  F  C  2 

WRITE  (6, 2110)  1  Sbli  (  2  )  ,  IOBLK  ,  KENDR  ,  LOT 
2110  FOP m  at ( 1 H  , 'FIRST  BLOCK : ' , I  4 , 2X , 'LAST  BLOCK ; ' , 1 4 , 2X  , 

1  'I  AST  WORD;', 14, 2X, 'NUM.  OF  SAMPLES ; ' , I  4 ) 

100  CALL  Cl OSF(R) 

CALL  EXIT 
END 


A 


C*»*  PROGRAM  A  C  ^  1 AN 

C***  THIS  PROGRAM  COMPUTES  THF  MEAN  VALUES  OF  THE  ACCELERATIONS 
C*»*STORED  IN  SYtOKGACC.DAT.  THE  COMPUTED  MEANS  ARE  STORED  IN  ARRAY 
C***S*EAM2,-)  «HIC«  IS  LOADED  INTO  SY  :  STY  E  A  Ri  .  D  AT  . 

C*** 

C**»  TASK  BUILD  AS:  ACmFANsACVEAN  ,  1 1  ,  1  J  F4POTS/LB 

C ***  UNITSsll  MAXHUFs512 

DIMENSION  COL AT  A (3?, 8) , ASTR (8) , 1P0S( 3) ,1K(3),ISU8(3), 

1  IT  ST (3) ,  1SBI  (3),1FPI (3) ,KENP(3) ,TSAMP(3) , SMEAN ( 3 , 3 ) , IHOS ( 3 ) 
COMMON  /ASV/If lb,IF19,IF31 
LATA  IYES/'YE'/ 

CALL  ASSIGN(8,  'SY  :PPNTIT,LSTH ' , IS) 

CALL  FDLSETC 8 , 'APPK ND') 

1 K  P  =  5 

mo=s 

C****»PITE  PROGRAM  TITLE  ON  TERMINAL  SCREFN 
ROITECIUD, 2000) 

2000  FORMAT  ( 20X  ,  '  ACCELERATION  MEAN  COM  PUTA  T  J  ON  '  ) 

I  POST  s 1  I  SET  FOR  POSITION  1  ONLY 

JSTP=?  JMEANS  TO  STMEAN(2,-) 

C***ASSIGN  AND  DEFINE  INPUT  FILE 

CALL  ASSIGN (9, 'S Y J OPG ACC . D A T ;l ' , 1 6 ) 

DEFINE  EILL  9(65, 256, U,IF15) 

CALL  FLbSFT(9, 'PFADONLY') 

IFILEsQ 
IPL  =  2 
IL  =  4 
KIL=3? 

C***READ  POINTER  INDEX  FILE 

CALL  ASSIGN ( 10, 'SY: INDACC.DAT; 1 ', 16) 

DEFINE  FILE  1 0 (1 , 30 , U , IFJ 9 ) 

CALL  FD8SET ( 10, 'READONLY') 

READ (10 'I POST)  IPOS, IR, IS LB, IHOS, ITST,I5BL,IFBL,KEND,TSAMP 
CALL  CLOSE (10) 

C***SET  INITIAL  1 N D F X  VALUES 
ItLKsISBL(IPL) 

LS=KIL 

LOT=LS*(IFBL(IPL)-ISBL(IPL))+KEND(IPL)/IL 

HrO.Ol 

C***ZERO  SUMMING  LOCATION* 

DO  10  Is  1  ,H 
10  ASTR ( I ) *0 . 0 

C***READ  BLOCK  OF  INPUT  DATA  AND  INDEX  BLOCK 
20  READdFILE'lBl  K)  (  (  COr  AT  A  (  K  I  ,  I)  ,  I  =  1  ,  I L  )  ,  K  Isl  ,  KI L  ) 

IBLKsIPLK+1 

C***COMPUTE  SUM  OF  ALL  SAMPLES  AND  STORE 
DO  30  KTsl,KIL 
DO  30  Isl,IL 

30  ASTR(I)sCnDATA(Kj ,i)*ASTR(I) 

C**»1F  ON  LAST  BLOCK, REDUCE  LS  TO  LAST  KURD 

IF(TBLK.EO.IFPL(IPL))  I SsKENDI I PL )/lL 
C***TEST  FOR  END  OF  INPUT  DATA 

IF(IRLK,GT.IFBL(IPL))  GO  TO  40 
GO  TO  ?(> 

C***CLOSF  OPEN  FILE 
40  CALI,  CLOSE  (  1  FI  LF ) 

C***COMPUTE  MEAN  VALUE 
DO  50  Jsl,IL 

50  ASTMI)*ASTP(T)/FLOAT(LOT) 

C*»*WRITE  ADJUSTMENT  INFO  O*1  TFRMJNAL  SCRFEN 
t*RITE(10D,2030)  (  ASTR (  I  )  ,  J*1  ,  IL ) 

2030  F  ORH AT ( 1 H  , 2X , 'ME AN ( j) , ( 2 ) . s' , 4G1 5 . 7 , /22X , 4G1 5, 7  ) 

C***5T0PF  MEAN  DATA  IN  DISC  FILE 


CALL  ASSIGN (11, 'SY : STWEAN . DAT; 1 ', 16) 

DEFINE  FILE  1 1 (1 , 1 « . U , I F3 1 ) 

CALL  E'P6SEI(11,'ULD') 

READ ( 11 'I  POST)  (CSMEANrj,I),I=l,3),J=l,3) 

DO  55  Tsl,3 

55  SVEAN(JSTP,I)=ASTR(T) 

WRITEC1  IMPOST  )  (  (S'1EAN(J,I)  ,1  =  1 ,3)  ,.)=1 ,3) 

CALL  CLOSF(ll) 

C***SFT  PRINTED  OUTPUT  FLAG 

IY1=IYFS  J  SET  TO  ALWAYS  PRINT 

IFCIY1.NE.IYES)  GO  TO  BO 
WRITE (8,2330) 

2330  FORM  AT ( 15X , '  f  OR  F 1 LF  SY : ORGACC . DAT '  ) 

70  *RITF(6 ,21 00)  IR(IPL),ISUP(1PL),IH0SCIPL),ITSTC1PL),IP0ST 

2100  FtiRNATdH  ,'RECORr  NUN:  '  ,  I  3 , 5X  ,  'SUBJECT  NUN:',I3,5X, 

1  'HOSP  NUM:',16,5X,'TEST  Nl'M:',I3,5X,  'POSITION  :  '  ,  1 3  ) 

D  WRITE (6,2110)  ISBL ( IPL ) , IF3L (IPL ) , KE ND C IPL) , LOT 

2110  FORFATdH  ,'FIRST  BLOCK  i  '  , I  4 , 2X  ,  'L  AST  BLOCK  :',I4,2X, 

1  'LAST  WORD}', J4,2X,'NUH.  OF  SAMPLES : '  ,  I  4 ) 

WPITF(R,2030)  (ASTR(I),I*1  ,11. ) 

80  CALI.  CLOSE (  E  ) 

CALL  EXIT 
END 


C ***  PROGRAM  ADJACC 

C***  THIS  PROGRAM  ADJUSTS  THE  DATA  IN  S Y : ORGACC . D AT  R  Y  SUBTRACTING 
C***THE  MEAN  VALUF  STORED  IN  SY  :  STME  AN  .  0  A I  .  THF  DATA  IN 
C***SY  sORGACC.DAT  IS  REPLACED  RY  THF  ADJUSTED  DATA. 

C*** 

C***  TASK  BUTLD  AS:  ADJ  ACC=ADJACC  ,  1 1  , 1)  F4POTS/LP 

C***  UNITS=12  MAXBUFs512 

DIMFNSION  CODA1 A ( 32 , 4 ) , SMEAN ( 3 , 3 ) 

DIMENSION  IPOS (3) , J  R  (  3  ) , ISUb(3) ,JHOS(3)  ,ITST(3) 

DIMENSION  ISP!,(3)  , IFBL(3)  ,  KENDO)  ,TSAMP(3) 

COMMON  /ASV/IF19,1F21 ,IF31 
DATA  IYES/'YE'/ 

CALL  ASSIGNO, 'S  Y  :  PENT  I T  .  LS  T  ,*  1 ',16) 

CALL  FDBSETC8, 'APPEND') 

JKB=5 

100*5 

C***WRITF  PROGRAM  TITLE  ON  TERMINAL  SCREEN 
WR 1 1 E ( IOD  , 2000 ) 

2000  FORMAT(20X, 'SYJ0RGACC.DAT  ADJUSTMFNT') 

IPOST=l  ! SET  FOR  POSITION  1  ONLY 

C***ENTF-R  STOPFD  MEAN  ARRAY  POSITION  TO  USE 

JSTR  =  2  iS«FAN£2,-)  FOR  ORGACC. DAT 

C***RFAD  POINTER  INDEX  FILE 

CALL  ASSIGN  (9, 'SY:  INDACC.DAT,*  l',16) 

DFFTNf-  FILE  9(1,30,U,IF19) 

CALL  FDBSET(9, 'READONLY') 

READ (9 'I  POST)  IPOS, JR,ISUB,IHOS, JTST,  J SBL , I FPL , KEND , TS AMP 
CALI.  CLOSE  (  9 ) 

C***SET  INITIAL  INDEX  VALUES 

IRl,*sISRL(2)  J  INPUT  BLOCK  INDEX 
I0BLX*ISBL(2)  IOUTPUT  BLOCK  INDEX 
LS  =  32 

L0TsLS*(lFbL(2)-ISFL(2))4KFND(2>/4 
H=TSAMPC2)/1000.0 
C***REAP  MEANS  FROM  DISC  FILE 

CALL  ASSIGN ( 10, 'SY :STMEAN.DATj 1 ' , 1 6 ) 

DEFINE  FILE  J 0 ( 1 , 1 8 , U , 1F3 1 ) 

CALL  FDBSETI10, 'READONLY') 

RFADtlO'lPOST)  ( (SMEAN (J, I) ,1*1  ,3)  , J«*l  ,3) 

CALL  CLOSE (10) 

C***ASSICN  AND  DEFINE  INPUT  FILE 

CALL  ASSIGN ( 12, 'SY : ORGACC . DAT; 1 ' , 16) 

DF  FI NF  FILE  1  2  (  65 , 25 6 , U , I F 2 1) 

CALL  FDbSET( 12, 'OLD') 

C***RFAP  BLOCK  OF  INPUT  DATA  AND  INDEX  BLOCK 
20  RFAD(12'I BL* )  ( ( CODAT A ( K I , T ) , I r 1  , 4 ) , KI *  1 , LS ) 

IBtKsIBLK+1 

C*** ADJUST  BLOCK  OF  DATA  BY  SUBTRACTING  MEAN  VALUE 
DO  30  K1=1,LS 
DO  30  1*1,3 

30  CODATA  (KI,  I  )*CODATA(KI ,  I  )-S**EAN  ( JSTR  ,  I  ) 

C***WRITF.  ADJUSTED  BLOCK  TO  DISC  FILES  AND  INDEX  BLOCK 
50  WRITE(12'I0BLK )  ( (CODATA (KI , I ) , I* 1 , 4  )  ,Kl»i , 32 ) 

I0BLK*I0BLK4l 

C***IF  ON  LAST  BLOCK, REDUCE  LS  TO  LAST  WORD 
IF(I0BLK.EGi.IFBLC2)  )  LS*KEND(2)/4 
C***TFST  FOP  END  OF  DATA 

IF (IPBLK.GT.IFbL(2) )  GO  TO  BO 
GO  TO  20 

C**»CLOSF  ALL  OPFN  FILES 
80  CALL  CICSEC12) 

C***COMPUTE  LAST  WORD  AND  LAST  BLOCK  WRITTEN  TO  DISC 
Lk*LS*4 
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IEBL*=J0BLK-1 

C***WKITr  Ov  TFR"INAL  SCREEN  MEAN  SUBTRACTION  INFORMATION 
WKITE(IOD,2070) 

V'RITE(  100,2020)  IR(2)  ,ISUB(2)  ,  I  HUS  (2)  ,ITST(2)  ,IPOST 
2020  FORM  AT ( t  H  , 'RECORD  NUW  S '  ,  I  3 , 5X , 'SUBJECT  NUM:',I3,5X, 

1  'HUSP  NUM  ! ' , IS ,  5X , 'TEST  HUM S ' , 1 3 , 5X , 'POSI TION S ' , I  3 ) 

WRITE  (  JOD,2090)  ISbl (2) ,IEBLK,LK 
C***SET  PRINTED  OUTPUT  FLAG 

IY1=IYFS  i SET  TO  ALWAYS  PRINT 

IF(IY) .NE.1YFS)  GO  TO  100 
WRITEC8 ,2070) 

2070  FORMTUH  ,19X, 'ORGACC.DAT  MEAN  ADJUSTMENT  COMPLETED  ON') 
WFITE(8,2020)  IRC7) ,ISUBC2) , T  HOS (2) , ITST (2) ,IPOST 
D  WR ITF ( 8 , 2090 )  1 SUL ( 2 ) , I FBL ( 2 ) , KEND ( 2 ) 

2090  F0RMATC1H  , 'INITIAL  BLOCK :', 14 , 2X , 'FINAL  BLOCK S ' , I 4 , 2X , 

1  'LAST  WORDS', 14) 

100  CALL  CLOSE  C  8 ) 

CAM,  EXIT 
END 


A 
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C***  PROGRAM  COKVFL 

C***  THIS  PROGRAM  TNTEORATFS  THE  ACCELEROMETER  DATA  STOKED 
c***in  sy :0»GACC.0AT  tq  PRODUCE  THE  THREE  COMPONENTS  OF  THE 
C*** VELOCITY  VFCTOH.  11  STORES  COMPONENTS  1=X,2=Y,3=Z  AND 
C***MEAN'  SO.  INTEGRATION  ERROR  ON  DISC  FJLE  SY 5 ORGVEL. DAT . 

C*** 

C***  TASK  BUILD  AS:  COP  VEH=COP  VF.B  ,  A  M.  3 1  N  M  ,  D I KDOT  ,  [  1  ,  1J  F4ROTS/LB 

C***  U  N  1 T  S  = 1 1  MAXPUF  =  512 

COMMON  Y (37,4)  ,PY( 36 ,4) .CODATA (36, 4) 

DIMENSION  IPOS(3),IP(3),ISUB(3) ,IHOS(3),ITST(3) 

DIMENSION  ISBl  (3)  ,IFRL(3)  ,KEND(3),TSAMP(3) 

COMMON  /ASV/1F19,IF21 ,IF22 

external  dirdot 

DATA  IYFS/'YE'/ 

CALL  ASSIGN(fl,'SY:PRNTIT.LST>l',16) 

CALL  FPBSFT(8, 'APPEND') 

I K  P  =  5 
mn=5 

C***WRITF  PROGRAM  TITLE  ON  TERMINAL  SCREEN 
WRITEC JOD,2000) 

2000  F0PMAT(20X, 'ORIGIN  ACCELERATION  INTEGRATION') 

IPOST=l  ! SET  FOR  POSITION  1  ONLY 

C*** ASSIGN  AND  DEFINE  OOTPU1  FILE 

CALL  ASS ION (9, 'SYjORGVEL.DAT; 1 '  , lb) 

DEFINE  FILE  9(65, 756, U,IF22) 

CALL  FDHSFTf 9, 'NE»') 

C***READ  POINTER  INDEX  FILE 

CALI  ASSIGN (10, 'SYrINDACC.DAT; 1 ', 16) 

DEFINE  FILE  1 0 ( 1 , 30 , U , IF1 9 ) 

CALL  FDHSFT( 1 0, 'READONLY') 

READ(IO'IPLST)  I PCS , I R , I SUB , 1 HOS , I TST , I SBL , IFBL , K E ND , TS AMP 
C»H.  CLOSECIO) 

C***SF.T  INITIAL  INDEX  VALUES 

IBLKalSHLf  2)  IIN’PMT  PLOCK  INDEX 
IUPI.KsT SBL  (  2  )  1 OUTPUT  BLOCK  INDEX 

C***SET  INITIAL  V  A  MIES  FOR  FNTRY  INTO  INTEGRATION  ROUTINE  AM3INM 
C***N.B.:ALL  VELOCITY  COMPONENTS  SET  TO  7EK0 
DO  10  1*1,4 
DO  10  J  =  1 , 4 
Y(J,I)*0.0 
10  DY(J,I)=0.0 

LS  =  36  1  3  2  INTEGRATION  STEPS  PLUS  4  INITIAL  VALUES 

L0TsfI,S-4)*(  IFBI(  7)-ISBL(2)  )+KFNDC2)/4 
HsTSAMP(2)/)000.0 
C***ASSIGN  AND  DEFINE  INPUT  F1I.E 

CALL  ASSIGN  C 1 1 , 'SY :URGACC,DAT: 1' , 16) 

DEFINE  FILE  1 1  (  6b  ,  256 , 11 ,  I F2 1  ) 

CALL  RDHSEKll, 'READONLY') 

C***RFAD  BLOCK  OF  INPUT  DATA  AND  INDEX  BLOCK 
20  PEA  D ( 1 1 ' 1 BLK )  (  f  CODAT  A  (  K  I  ,  I  )  ,  I  =  1 , 4  )  ,  K I  *5  ,  LS  ) 

IBLKsIBLK+1 

C***CONVERT  INPUT  DATA  FROM  G'S  TO  CM/SFC/SEC 
DO  40  K I *5 , LS 
DO  40  1*1,4 

40  CODATA (KI,I)*CODATA(KI,I)*0  81 .19 

C***1NTFGRATE  BLOCK  OF  DATA 

C*** 

CALL  A»'3JNB(DIRD0T  ,H,LS) 

C»** 

C***IF  ON  LAST  BLOCK, STORF  ZERO  IN  REMAINPFR 
IF( 10BIK.LT. IFBL(?) )  GO  TO  50 
LOSsLS+1 

X F { LOS •  Cl . 3 6 )  .CO  TO  50-.-^ — . - — 
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DO  45  J  =  L  0  S  ,  36 
DO  45  1=1,4 
Y( J,I)=0.0 
45  DY(J,I)=0.0 

C***WRITE  INTEGRATED  BLOCK  TO  DISC  FILES  AND  INDEX  BLOCK 
50  WRITE(O'IOBLK)  (  (  Y  (  M  ,  I  )  ,  T  =  1 , 4  )  ,  KI  =  5 , 36  ) 

IOBLK=IGBLK*l 

C***IF  ON  LAST  BLOCK, REDUCE  LS  TO  LAST  WORD  ♦  4 
IF{IOBLK,EQ,IFbL(2) )  LS= ( KEND ( 2 ) / 4 ) +4 
C*4*TLST  FOR  END  OF  DATA 

IF(IOBLK.GT.IEBL(2) )  GO  TO  60 

C***RESET  ARRAYS  WITH  If.'ITAL  CONDITIONS  FOR  NEXT  DATA  BLOCK 
DO  60  1=1,4 
DO  60  0=1,4 
Y(J,I)=Y(J+32,I) 

DY(J,I)=DY(J+32,I) 

60  CODATACJ,I)=CODATA(J+32,I) 

GO  TD  20 

C***CLOSE  ALL  OPEN  FILES 
80  CALL  CLOSF.(U) 

CALL  CLOSE ( 9 ) 

C***COMPUTF  LAST  WORD  INTEGRATED  AND  LAST  BI.OCK  WRITTEN  TD  DISC 
LW=(LS-4)*4 
lEBI.KsI  OBLK-1 

C***WRITE  ON  TERMINAL  SCREEN  INTEGRATION  INFORMATION 
WPITE(IUD,2070) 

WR1TE(I0D,2C20)  1 R ( ? ) , 1  SUB ( 2 ) , I HOS ( 2 ) , I TST ( 2 ) , IPOST 
2020  FORM  AT  (  1 H  , 'RECORD  KLIM  J  '  ,  1 3 , 5X  ,  'SUBJECT  NUMj',I3,5X, 

1  'HOSP  NUM:',I6,5X,'TFST  NUM;', 13, 5X, 'POSITIONS', 13) 
WRlTECIOD,2O90)  ISBL  (  2  )  ,  IF.BLK  ,  LW 
C***SET  PRINTED  OUTPUT  FLAG 

IYlsIYFS  l SET  TO  ALWAYS  PRINT 

IF(IY1 .NE.IYES)  GO  TO  100 
WR ITE ( fe  ,  207  0 ) 

2070  F0REATC1H  , 1 9X , 

1  'ORIGIN  ACCELERATION  INTEGRATION  COMPLETED  ON') 

WRITE (6,2020)  IP (2) ,ISUB(2) , I HOS ( 2 ) , ITS! (?) , IPOST 
WRITE (8, 2090)  ISBL ( 2 ) , I FBL ( 2 ) , K END C 2 ) 

2090  FORMAT ( 1 H  , 'INITIAL  BLOCK S ', 14 , 2X , 'FINAL  BLOCK S ', 14 , 2X , 
1  'LAST  WORD;', 14) 

100  CALL  CI.nSF(P) 

CALL  EXIT 
END 


INFORMATION 


! SET  TO  ALWAYS  PRINT 


INTEGRATION  COMPLETED  ON') 


SUPR0UT1NE  DIRDOTCI  Y,I.DY) 

C***  THIS  SUBROUTINE  CONTAINS  THE  DIFFERENTIAL  EQUATIONS 
C***WHICH  DEFINF  THE  SOLUTION  TO  BOTH  THE  ACCELEROMETER 
C***PLATFORM  ORIGIN  VELOCITY  AND  POSITION, 

COMMON  Y(37,4) ,OYf 36,4) , COOATA C 36 , 4 ) 

TYd  DY  ,1  )=CODAT  A  (  LDY  ,  1  ) 

DY(LDY,2)*C0DATA(LDY ,2) 

DY(LDY,3)*CODATA(LDY,3) 

RETURN 

END 
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C ♦*♦  PROGRA*  FILVFL 

C**»  THIS  PROGRAM  FILTERS  nATA  IN  SY  :ORCVFL.  HAT  USING  AN  8TH  ORDER 
C***RE CURSIVE  P  UTTER  '"'OR  JH  FILTER.  THF  DATA  IN  SY  :  ORGVEL.  n  AT  IS 
C***RFPLACFD  BY  THE  FILTERED  DATA. 

C*** 

C***  TASK  BUILD  AS:  FI L VLL=F I LVEL , RNDP AS , C 1 , 1) F4P0TS/LB 
C***  UNIT S= 1 0  MAX  BUF  =  5 1 2 

DIMENSION  CODATA C 32 ,4} , SI  DATA ( 20C0) , IPOS (3) , IR ( 3 ) , ISUB ( 3 ) 
DIVFNSION  IHOS(3),ITST(3)*ISBL(3),IFBL(3),KEND(3),TSAMp(3) 
COUPON  /ASV/IE22,IF19 
DATA  IYES/'YE'/ 

CALL  ASSIGN(R,'SY:PRNTIT,LST;1',16) 

CALL  FDBSET ( 8 , 'APPFNP' ) 

I K  P  =5 
I  OD  =  5 

C*»*WRITE  PROGRAM  TITLE  ON  TERMINAL  SCREEN 
KRITE(IOD,2000) 

2000  FOPMAT(20X, 'ORIGIN  VELOCITY  FILTERING') 

TPOST=l  1  SET  FOR  POSITION  1  ONLY 

C***ASSIGM  AND  DEFINE  1 NPIJT/OUTPUT  FILE 

CALL  ASSIGN (9, 'SY: OR GVKL.DAT; 1 ',16) 

DFFINE  FILE  9 ( 65 , 256 , U , IF22  ) 

CALL  FDfcSET(9, 'OLD' ) 

C*»*READ  POINTER  INDEX  EILF 

CALI.  ASSIGN ( 1 0, 'SY: 1NDACC.DAT; 1  ',16) 

DFFINE  FILE  10(1 ,30,U,IFJ9) 

CALL  EDBSET(10, 'READONLY') 

READ (10 'I  POST)  IPnS,IR,ISUB,IHOS,lTST,ISBL,IFBL,KEND,TSAMP 
CALL  CLOSE (10) 

C***FNTFP  LOWER  AND  UPPFR  BANDPASS  FREQUENCIES 

FCls0.50  1I.OWFR  SET  TO  0.50  HZ 

FC2slO.O  1 UPPER  SET  TO  10.0  HZ 

C* ♦ *SFT  INITIAL  INDEX  VALUES 

I  RLKsISbL (  2  ) 

LS  =  32 

L0T=l,S*(IFBL(2)-ISBL(  2)  )+KFND(2)/4 
FS=J  000.0/TSAVP(?) 

II  =  1 

C***LOAD  ALL  SAMPLES  OF  C0DATA(-,1)  INTO  5IDATA 
10  RFAD(9'IBLK)  ( ( COD AT A ( K I , I ) , 1= 1 , 4 ) , K J = 1 , LS ) 

IBLKrIPLK+1 
DO  ?n  K H=1 , LS 

IND=(1BLK-ISBLI 2)-l ) ♦32+KR 
20  SIDATA(lND)*CODATA (KB, IT) 

IF(IHLK.E0.IFPL(2) )  LS=KEND(2)/4 
IF(IBLK.GT.IFBL(2) )  GO  TO  40 
GO  TO  10 

C***INCRF.MENT  APRAY  PnsiTION  AND  IF  LAST  POSTION  FILTERED  EXIT  LOOP 
30  11=1141 

IFUI.GT.3)  GO  TO  90 

C***FILTFP  ONE  ARRAY  POSITION  OF  DATA (STORED  IN  SIPATA) 

40  CALL  HNDPAS(SIDATA,L0T,FC1 ,FC2,FS) 

C***FESFT  BLOCK  AND  WORD  INDEXES 
I BLK  sISBL ( 2 ) 


LS  =  32 

C***RFLOAD  CODATA  TO  REF  LACE  FILTERED  ARRAY  POSITION  AND  TO 
C***LCAD  SIDATA  WITH  NEXT  ARRAY  POSITION  TO  BE  FILTERED 
50  PEAD(9'IBLK)  ( ( CGPAT A ( Y I , I ) , 1=1 , 4 ) , K I* 1 , LS ) 

IOPLKsIPLK 
IPLKs JBLK+1 


C 


DO  60  KB=1 , LS 
IND=(10BLK-I5RL(2))*32*KB 
••♦LOAD  FILTERED  DATA  INTO  CODATA 


CODATA (KB, II 5 =S ID  AT A ( 1RD) 

IFCII.GE.4)  GO  TO  60 

C***LOAD  NEXT  ARRAY  POSITION  TO  BE  FILTERFD  INTO  SIDATA 
SI DATA (lND)=CODAIA(Kb,II+l  ) 

60  CONTINUE 

C***WR ITE  FILTERED  DATA  TO  DISC  FILE 

WPITE(9'I0BLK)  ( (CODATA (KI, I ) ,1=1,4), KI=1,LS) 

C***IF  ON  LAST  BLOCK, REDUCE  LS  TO  LAST  WORD 
IF(IBLK.EG,IFHL<(2))  LS  =  KEND(2)/4 
C***TEST  FUR  END  OF  INPUT  DATA 

IFCIPLK.GT,1FBL(2) )  GO  TO  30 
GO  TO  60 

C***CLOSE  OFEN  FILE 
90  CALL  CLOSE ( 9 ) 

C***WKITt  ADJUSTMENT  INFO  ON  TERMINAL  SCPEEN 
WRJTE(IOD,2('30) 

2030  F0RMATC1 OX, 'ORIGIN  VELOCITY  FILTERING  COMPLETED  ON*') 
WRITE(IUD,2060)  I R { 1 ) , I SUP ( 1 ) , I HOS (1 ) , ITST ( 1 ) , I POS ( 1) 
2060  FORMAT ( 1 H  , 'RECORD  NUNS', 13, 5X, 'SUBJECT  NUNS', 13, 5X, 

1  'HOSP  NUBS', 16, 5X, 'TEST  MU”  :  '  ,  1 3 , 5X , 'POSITION S ' , 14 ) 

WRITE(IDD,2070)  FC1,FC2 

2070  FORHATCIOX, 'BANDPASS  FREQUENCIES:  '  ,F9 . 2  t  '  TO',F9.2,'  H7.' 
KENDR=(KI-1 )*4 

WRITE  f  IUD.2110)  ISBLC2)  ,  I  DRI.K  ,  KENDR  ,  LOT 
C***SET  PRINTED  OUTPUT  FLAG 

I Y 1 =T YES  ISET  TO  ALWAYS  PRINT 

IFflYl.NE.IYES)  GO  TO  JOO 
WR ITE (6,2030) 

WR I TF ( P , 206  0 )  IP ( 1 ) , ISUB ( ) ) , I HOS ( 1 ) , ITST ( 1) , I POS ( J ) 
WRITE(R,2070)  FC1  ,  FC2 

WR I TE (8,21 10)  I S  B  L ( 2 ) , IOBLK , KFNDR , LOT 
2110  FORMAT  (  1  H  , 'FIRST  BLOCK  S  '  ,  I  4 , 2X  , 'L  AST  BLOCK S 14 , 2X , 

1  'LAST  WORDS', 14, 2X,'NUM,  OF  SAMPT.FS:  '  ,  14  ) 

100  CALL  CLOSE(e) 

CALL  EXIT 
END 


c***  PROGRAM  VEMEAN 

C***  THIS  PROGRAM  COMPUTES  THF  MEAK  VALUES  OF  THE  VELOCITIES 
C***STORED  IV  Sl'rORGVFL.DAT.  THF  COMPUTET  MFANS  AKF.  STORED  IN  ARRAY 
C***S“EAA ( 3 WHICH  IS  LOADED  INTO  5YJSTFFAN.DAT. 

C*** 

C***  TASK  hUILD  AS:  VEFEANsVEMEAN , ( 1 , n F4POTS/LB 

C***  UNITS=11  MAX  BUF  =  512 

DIMENSION  COD AT A ( 32, R), ASTP (R) , IPOS(3) , 1 R ( 3 ) , I SUR ( 3 ) , 

1  I TST ( 3 )  ,  ISBL  C  3  )  ,IFBL,(3)  ,  KEND  (  3  )  ,  TSAMP  (  3  )  ,  SME  A  N  (  3 , 3  )  ,  I HOS  (  3  ) 
COMMON  /ASV/IF15,IF 1 9  f I F 3 1 
DATA  JYES/'YE'/ 

CALL  ASSIGN! 8, 'SY  JPRNTIT.LST ; 1 ' , 16) 

CALL  FDBSET(8, 'APPEND') 

IKH  =  5 
IOD  =  5 

C***WRITE  PROGRAM  TITLE  ON  TERMINAL  SCREEN 
WFIT£(10D,2000) 

2000  FORMAT ( 2  0  X  »  '  VELOCITY  MF AN  COMPUTATION') 

IPOST=l  I  SET  FOR  POSITION  1  ONLY 

JSTR  =  3  ‘MEANS  TO  STMF  AN ( 3  ,-) 

C***ASSIGN  AND  define  INPUT  FILE 

CALL  ASSIGN (9,  'SY ! ORGVEL. DAT } 1 ' , 16) 

DEFINE  FILE  9 ( 65 , 25* , U , I F 1 5 ) 

CALL  FDBSETC9, 'READONLY') 

IFTLE=9 
IPL  =  2 
I  L=  4 
KIl=32 

C***KEAO  POINTER  INDEX  FILF 

CALL  ASSIGN(10,'SY:INDACC.DAT:i',16) 

DEFTNF  FILE  1 0 ( 1 , 30 , U , IF1 9 ) 

CALL  FPB5ET ( 10, 'RFADQNLY') 

RFAD(IO'IPOST)  IP0S,IR,1SUB,IH0S, 1 TST , ISBL , IFBL  ,  KEND , TSA MP 
CALL  CLOSE (10) 

C***SET  INITIAL  INDEX  VALUES 
IBLK=ISBL(IPL) 

LS=KIL 

LOT=LS*(IFBL(IPL)-ISBLCIPL) ) ♦KENDt IPL) /IL 
H=0.01 

C***ZERO  SUMMING  r.OCATIONS 
DO  10  1  =  1, 1L 
10  ASTP ( 1 ) =0 . 0 

C***READ  BLOCK  OF  INPUT  DATA  AND  INDEX  BLOCK 
20  READ(IFILE'IBLK)  (  (CODATA  (  KI  ,I),J  =  l,Il.  ),KI  =  1,KIL) 

IBLKsIBLK+1 

C***COMPl)TE  SUW  OF  ALL  SAMPLES  AND  STORE 
DO  30  KI=1,KIL 
DO  30  1  =  1,  IL 

30  ASTP(I)-CODATA(KI,I)'fASTR(I) 

C***IE  ON  LAST  BLOCK, REDUCE  IS  TO  LAST  WORD 

IFCIBLK .EO.IFBL(IPL) )  LSsKFND ( I  PL ) / 1 L 
C***TEST  FOR  FND  OF  INPUT  DATA 

IF  (  I  Bt.K  ,GT  .  IF  bLf  1  PL)  )  GO  TO  40 
GO  TO  20 

C***CLOSF  OPEN  FILE 
40  CALL  CLOSF(IFIIF) 

C***COMPUTE  MEAN  VALUF 
Dr  50  1=1, IL 

50  ASTP(I)=ASTR( J ) /FLOAT ( LOT ) 

C****RITE  ADJUSTMENT  INFO  ON  TERMINAL  SCRFEN 
WR1TE( 100,2030)  ( ASTP ( I ) , 1=1 , IL) 

2030  FORMATOH  ,2X, 'MEA*:(  1)  ,  (2)  . . =  '  ,  4G1 5 . 7  , /22X  ,  4G1 5. 7  ) 

C***STORE  MEAN  DATA  IN  DISC  FILE 


CALL  ASSIGN ( 11 , 'SYjSTMFAN.DAT; 1 ', 16) 

DEFINE  FILE  1 1 ( 1 , 1 8 , U , IF3 1  ) 

CALL  FDBSET ( 1 1 ,'OLD') 

RFAD( 11 'IPOST)  (  (SMEAN(J,I) ,1  =  1 ,3) , J  =  1  ,3) 

DO  55  1=1,3 

55  S*EAN(JSTR,I)=ASTRCI) 

WRITE! 1 1 'IPOST)  (  (SNEAN(J,I)  ,1  =  1  ,  3)  ,  J  =  1 ,3) 

CALL  CLOSE (11) 

C***S ET  PR1NTFD  OUTPUT  FLAG 

m  =  IYES  ISFT  TO  ALWAYS  PRINT 

IF(IY1 .NE.IYES)  GO  TO  80 
WRITE! 8 ,2330) 

2330  FORMAT! 1 5X , 'FOB  FILE  S Y t ORG VEL . 0 AT ' ) 

70  WRIT£(R,2100)  IP ( I PL ),I5U8fIPL),I HOS (IPL),ITST(IPL),IP05T 

2100  FORMAT ( 1 H  , 'RECORD  *UM : ' , I  3 , 5X , 'SUP JECT  HUM : ' , 1 3 , 5X , 

1  'HOSP  NUM:',I6,5X,'TEST  NUM  j ',I3,5X, 'POSITION:  ',13) 

D  WRITF! 8 ,2110)  ISbL  (  I  PL  )  ,  I FBL  C  I  PL  )  ,  K  END  C  IPL)  ,  LOT 

2110  FORMAT ( 1 H  , 'FIRST  BLOCK s ' , 1 4 , 2X , 'L AST  BLOCK ! ' , 1 4 , 2X , 

1  'LAST  WORD;', 14, 2X, 'NUN,  OF  SAMPLES J 14 ) 

WRITE (8,2030)  ( ASTP ( I ) , 1=1 , IL ) 

80  CALL  CLOSE { 8 ) 

CALL  EXIT 
END 


c***  PROGRAM  ADJVEI, 

C***  THIS  PROGRAM  ADJUSTS  THE  DATA  IN  SYjORGVEL.DAT  BY  SUBTRACTING 
C***THE  MEAN  VALUE  STORED  IN  S Y S STM E A N . D AT .  THE  DATA  IN 
C***SYjORGVFL.DAT  IS  REPLACED  BY  THE  ADJUSTFD  DATA. 

C*** 

c***  TASK  BUILD  AS;  ADJVEL=ADJ VEL , t 1 , 1 ) F4POTS/LB 

C***  UN ITS* 12  MAXBUKsbl2 

DIMENSION  CCWATA(32,4)  ,SMEAN(3,3) 

DIMENSION  IPOS ( 3 ) , IP ( 3  ) , I SUB ( 3 ) ,IHOS(3) ,  ITST(3) 

DIMENSION  ISBL ( 3 ) , I EBL { 3 ) , K EN D ( 3 ) , TS AMP ( 3 ) 

COMMON  /ASV/IF1 9, IF21  ,TF31 
DATA  IYFS/'YE'/ 

CALL  ASSIGN! 8, 'SY S PRNTIT, LST; 1 ', 16) 

CALL  FDBSET(8, 'APPEND') 

IKB=5 

IOD=b 

C***WR11F  PROGRAM  TITLE  ON  TERMINAL  SCREEN 
WRTTE! IOD, 2000) 

2000  FORMAT! 20X,'SY*ORGVFL. DAT  ADJUSTMENT') 

IP0ST=1  ! SET  FOP  POSITION  1  ONLY 

C***ENTFR  STORED  MEAN  ARRAY  POSITION  TO  USE 

JSTR=3  1S“EAN(3,-)  FOR  ORGVEL.DAT 

C»**READ  POINTER  INDEX  FIFE 

CALL  ASSI GN( 9, 'SY : INDACC.DAT; 1 ', 16) 

DEFINE  FILE  9( 1 ,30, U, JF19) 

CALL  FDBSFT(9, 'HEADONLY') 

READ (9' I  POST)  IPOS, T R  ,  I SUB  ,  I HOS , ITST , ISBL, I FBL , KEND , TSA“P 
CALL  CLOSE ( 9 ) 

C***SFT  TMTTIAL  INDEX  VALUES 

IBLK=I SBL ( 2 )  ! INPUT  BLOCK  INDEX 

IP8LK=ISBL(?)  JOUTPUI  BLOCK  INDEX 
LS  =  32 

LOT*LS*(IFBL(2)-ISBL(2))+KEND!2)/4 
BsTSAMP(2)/1000.0 
C***READ  MEANS  FROM  DISC  FILE 

CALL  ASSIGN(10,'SY  SSTMEAN.DAT; 1 ',16) 

DEFINE  FILE  1  0 (  1  ,  1 R  ,  U , IF3 1 ) 

CALL  FDBSETUO, 'READONLY') 

RFAD(IO'IPOST)  ( (SMFAN(J,I) ,1*1 ,3) , J*1 ,3) 

CALL  CLOSE! 10) 

C*** ASSIGN  AND  DEFINE  INPUT  FILE 

CALL  ASSIGN! 17, 'SY: ORGVEL.DAT; 1 ', 16) 

DEFINE  FILE  1  2  (  6b  ,  2b6  ,U , IF2 1 ) 

CALL  EDBSET(12,'0LD') 

C***PEAD  BLOCK  OF  INPUT  DATA  AND  INDEX  BLOCK 
20  READ! 12'IBLK )  ( f COD A T A ( K I , I ) , I *1 , 4 ) , K I* 1 , LS ) 

IP.LKsIBLK+1 

C*** ADJUST  BLOCK  OF  DATA  BY  SUBTRACTING  “FAN  VALUE 
DO  30  K 1 * 1 , LS 
DO  30  1*1,3 

30  CODATA  C K I , I ) sCODAT  A ( K I , I )»SMEAN  C  JSTP , I ) 

C****RITE  ADJUSTED  BLOCK  TO  DISC  FILES  AMD  INDEX  BLOCK 
50  *RITE(12'I0BLK)  ( fCODATA (K1 ,1) ,1=1 ,4) ,KI=1 ,32) 

IOBLK  =  IOBLKM 

C***IF  ON  LAST  BLOCK, REDUCE  LS  TO  LAST  WORD 
IF(T0BI.K.FQ.IrBL(2))  LS*KEMD(2)/4 
C***TF5T  FOR  FND  OF  DATA 

IF(T0BLK.GT.IFBL(2) )  GO  TO  80 
GO  TO  20 

C***CLOSE  ALL  OPEN  FILFS 
80  CALL  CLOSE C 12) 

C***COMPUTE  LAST  WORD  AND  LAST  BLOCK  WRITTEN  TO  DISC 
LW*LS*4 
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IEBLK=I0RLK-1 

C***WR1TE  ON  TERMINAL  SCREEN  MEAN  SUBTRACTION  INFORMATION 
WRJTE(IOD,2070) 

WRITE(IOD,2020)  I R ( 2 ) , I  SUB ( 2 ) , IHOS ( 2 ) , IT ST ( 2 ) , I POST 
2020  FORMAT  (  1  H  ,  'RECORD  NllM  :  '  ,  I  3 , 5X  ,  'SUBJECT  MUMS', 13, 5X, 

1  'HOSP  MUMS', Jfe,5X, 'TEST  NUM j ' , 13 , 5> , 'POSl TION S ' , 13 ) 
WRITE(IOD,2090)  ISRLC2) , I FBLK , Lw 
C***SET  PPINTEL  OUTPUT  FLAG 

IVlsiyFS  1  SET  TO  ALWAYS  PRINT 

IFCIY1.NL.IYE8)  GO  TO  100 

WRITE(R,2070) 

2070  FORMAT ( 1 H  ,19X, 'OPGVEL.DAT  MEAN  ADJUSTMENT  COMPLETED  ON') 
WRITE Ct ,2020)  IR(2),ISUB(2),IHOSf2),ITST(2), I POST 
D  WRITE C 8 , 2090 )  ISBLC2) , TFBLC2)  ,KEND(2) 

2090  FORM  AT ( 1  H  , 'INITIAL  BLOCK  S', 14, 2X, 'FINAL  BLOCK S ', 14 , 2X , 

1  'LAST  WORDS', 14) 

100  CALL  CLOSF(R) 

CALL  EXIT 
END 
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C***  PROGRAM  COMPOS 

C***  THIS  PROGRAM  INTEGRATES  THE  VELOCITY  DATA  STORED 
C***JN  SY : ORGVEL , DAT  TO  PRODUCE  THF  THREE  COMPONENTS  OF  THE 
C***POSIT10N  VICTOR.  IT  STORES  COMPONENTS  l=X,2*Y,3=Z  AND 
C***MFAN  SO.  INTEGRATION  ERROR  on  DTSC  FILE  SY : ORGPOS . DAT . 

C*** 

C***  TASK  BUILD  AS:  COR POS=CORPOS . A M 3 1 N M , D I  ROOT , 1 1 , 1) F 4POTS/LB 

C***  UN1TS  =  U  MAXPUF  =  5I2 

COMMON  Y(37,4),nY(36,4),CUDATA(36,4) 

DIMENSION  I POSC 3) ,IR(3),ISUP(3) , I  NOS (3) , ITST(3) 

DIMENSION  1SBU3),IFBL(3)  ,KFND(3)  ,TSAMP(3) 

COMMON  /ASV/IF19,IF22,IF23 
EXTERNAL  DJROOT 
DATA  IYES/'YE'/ 

CALL  ASSIGN ( 6, 'SY:PPNTIT.LST?1 ',16) 

CALL  FD6SFT(8, 'APPfc ND') 

IKBs5 

IOD*5 

C***WRITE  PROGRAM  TITLE  ON  TERMINAL  SCREEN 
KR1TE(IOD,2000) 

2000  FORMATC20X, 'ORIGIN  VELOCITY  INTEGRATION') 

IPOST  =  J  ! SET  F  OR  POSITION  1  ONLY 

C***ASSIG*>  AND  DEFINE  INPUT  FILF 

CALL  ASSIGN  (9,  'SY  :  ORGVEL.  DAT?  1  '  ,  1  6  ) 

DEFINE  FILE  9 ( 65 , 2 5 6 , U , I F2 2  ) 

CALL  FDBSET (9  ,  'READONLY' ) 

C***FF  Al>  POINTER  INDEX  FTLE 

CALL  ASSIGN (10, 'SY ! 1 NDACC.DAT; 1 ',16) 

DEFINE  FILE  1 0 ( 1 , 30 , U , IF  1 9 ) 

CALL  FDBSETCIO,'RFADONLY') 

RE»P(10'IPOST>  IP0S,IR,ISUB,IH05,1TST,I&BL,IFHL,KEND,T5AMP 
CALL  CLOSECI0) 

C***SET  INITIAL  INDEX  VALUES 

IBLKsISBL(2)  1INPUT  BLOCK  INDEX 
I0BLK*ISBL(2)  iOUTPIIT  BLOCK  INDEX 
C***SET  INITIAL  VALUES  FOP  ENTRY  INTO  INTEGRATION  ROUTINE  AM 3 1 N m 
C***N . B . S  ALL  VELOCITY  COMPONENTS  SET  TO  ZERO 
DO  10  1*1,4 
DO  10  J=1 . 4 
Y(J,I)sO.O 
10  DY ( J  ,  I ) *0 . 0 

LS*36  132  INTEGRATION  STEPS  PLUS  4  INITIAL  VALUES 

LOT*(LS-4)*(IFBL(2)-ISBL(2) )+KENDC2)/4 
H=TSAMp(2)/1000.0 
C***ASSIGN  AND  DEFINE  OUTPUT  FILE 

CALL  ASSIGN ( 1 1 , 'SY: rRGPOS.DAT: 1 ' , 1 6 ) 

DEFINE  FILE  1 1 ( 6 5 , 2 5 6 , U , I F 2 3  ) 

CALL  FDPSET(1I,'WF*') 

C***READ  BLOCK  OF  INPUT  DATA  AND  INDEX  FLOCK 
20  RF.  AD  (  9 ' 1  HLK  )  (  (  C^n  AT  A  (  Y  T  ,  I  )  ,  I  s  l  ,  4  )  r  K  I  s  5  ,  LS  ) 

IHLKsIBLK+1 

C***INTEGRATF  BLOCK  OF  DATA 

C*** 

CALL  AM3INM(DJkD0T,H,LS) 

C*** 

C***IF  ON  LAST  BLOCK, STORE  ZERO  IN  RFMA1NDER 
IF(IOBLK.LT.IFBL(?))  GO  TO  SO 
LOSslSTl 

IFCL0S.GT.36)  GO  TO  50 
DO  45  J*LOS ,36 
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C’HM'WRITL  INTEGPAI  fcl>  BLOCK  TO  DISC  FILES  AND  INDEX  BLOCK 

50  WRITEU1  'IORLK)  ! !Y!K1,I),I=1,4),KI=5,36) 

IOBLKsIOBLK+1 

C***IF  ON  LAST  BLOCK, REDUCE  LS  TO  LAST  WORD  +  4 
IF(T0BLK,E0.1FBL(2) )  LS= C KE*D C 2 ) /4 ) +4 

C***TEST  FOR  END  CF  TATA 

IFdOBLK.GT.IFBLm )  GO  TO  80 

C***RESET  ARRAYS  WITH  1NITAL  CONDITIONS  FOR  NEXT  DATA  BLOCK 
DO  60  1=1,4 
DO  60  J= 1 , 4 
Y!  J,T)=Y!J+32,I) 

DYCJ,I)=DYCJ+32,I) 

60  CODATA(0,I)=CODATA(J+32,I) 

GO  TO  20 

C***CLOSF  ALL  OPEN  FILES 

90  CALL  CLOSE ( V ) 

CALL  CLOSE (11) 

C***COMPUTF  LAST  WORD  INTEGRATED  AND  LAST  BLOCK  WRITTEN  TO  DISC 
LWs(LS-4)*4 
IEBLK*IOBI,K«i 

C***WRITE  ON  TERMINAL  SCREEN  INTEGRATION  INFORMATION 
WRITE(IOD,207O) 

WRITE(IOD,2020)  IR ( 2 ) , ISUB ( 2 ) , I HOS ! 2 ) , ITST( 2 ) , IPOST 
FORMAT! 1 H  , 'RECORD  NUM : ' , I 3 , 5X , 'SUBJECT  NU«:',I3,5X, 

'HOSP  NUM:', 16, 5X, 'TEST  NUM:', 13, 5X, 'POSITION:', 13) 

WRITE! IOD, 2090)  ISBL(2) ,IEBLK,LW 
PRINTED  OUTPUT  FLAG 

IY1=IYFS  ! SET  TO  ALWAYS  PRINT 

IF!IY1.NE.IYES)  GO  TO  100 
WRITE !8,2070) 

F0RMAT!1H  ,19X, 'ORIGIN  VELOCITY  INTEGRATION  COMPLETED  ON') 
WRITE (8, 2020)  IR!2) , ISUB C 2 ) , I HOS ( 7 ) , ITST  !  2 ) , IPOST 
WRITE! 8, 2090)  ISBL! 2) , I FPL ! 2 ) , KEND! 2 ) 

FORMAT! 1H  , 'INITIAL  BLOCK :', 14 , ?X , 'FIN AL  BLOCK :', 14 , 2X , 
'LAST  WORD:', 14) 

CALL  CLOSE ( B ) 

CALL  EXIT 
END 


2020 

1 

C’M'WSET 


2070 


2090 

1 

100 


Program  DATRUN 

This  is  a  command  file  program 
which  automatically  executes  all 
the  programs  listed  below. 
Execute  by  @ DATRUN 


RUN  DATCON 
RUN  STADAT 
HUN  FILDAT 
RUN  SWPDAT 
RUN  SPEOIT 
RUN  ONGF2I. 
PUN  JNACHG 
RUN  COANG1, 
RUN  FI  LANG 
RUN  corn  AN 
RUN  COACCL 
RUN  FT  1.  ACC 
RUN  ACMFAN 
RUN  AnJ ACC 
RUN  COPVEL 
RUN  FILVEl 
RUN  VFMA.AN 
RUN  AOJVLL 
RUN  CORPUS 
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C***  PROGRAM  RLHTIri 

C***  THIS  PROGRAM  PLOTS  UP  TO  4  CHANNELSUJR  ARRAY  POSITIONS)  OF 
C***DATA  STORED  IN  DISC  CATA  FILES  LISTED  IN  THE  INPUT  FILE 
C***SECT10N  OF  THE  PROGRAM.  A  MAXIMUM  OF  1024  SAMPLES  CAN  BE 
C***PLOTTFD(UP  TO  10.12  SECS).  THE  PLOT  SIZE  IS  1 8CM  X  24CM. 
C***WHEN  PSIZ  IS  SET  TO  1.5,  THE  PLOT  IS  FULL  SIZED  FOR  TX  AND 
C***  PLOTTER. 

C*** 

C*»*  LINK  AS  PLOTIP*PLOTIB,PLOTL,SYSLIB/F 

C*** 

COMMON  /ASV/IF17, 1  FI  5 , 1 F 1 6 , 1 F30 , I F2 1 , 1 F22 , IF23 , IF24 ,  IF25 
DIMENSION  LABEL (16) 

DIMENSION  DAT  BLK  (32,10)  ,  [>  AT  A  (  5 1 2 , 4  )  ,  YD  AT  A  (  5 1 2  )  ,  T1  ME  C  51 2  ) 
LOGICAL* 1  CODE: ( 6 ) 

DATA  I YES/ 'YE'/ 

DATA  LABEL/' 1', '2', '3 ','4', '5', '6', '7 ','8 ','9', '10', 

1  '11', '12', '13', '14',  '15',  '16'/ 

DATA  ICODAT/'CO'/.IOMEG/'OM'/, JORPOS/ 'PC '/ , I RB AKT/ 'RB'/ 

DATA  ITRANS/'TP'/,I0RTHD/'0R'/,IACCL/'R2'/,I0RVEL/'VE'/ 

DATA  IANGL/'AN'/ 

IKB  =  5 
I0D=7 

C***ENTF.R  NAME  SYMBOL  OF  DISC  FILE  TO  BE  PLOTTED 
WFf  ITE(  I  OD,  2000) 

2000  FOKMAT(20X, 'PLOT  PROGR A M '/ 1 OY , 'ENTER  FILE  NAME  ' 

1  /10X,' (CP=CODATM,OVsOMEGA,TR=TRANSM,OR=TRORTH) ' 

2  /10X,'(R2sGRACCL,VEs0RGVEL, POkORGPOS , RBaFLATEN  r  ANs ANGLES) ' ) 

READ ( I  KB , 1 000 )  1 N  A  M 

1000  FORMAT ( A2) 

WRITE(IUO,2O10) 

2010  FORMATCIOX, 'ENTER  FILE  STARTING  BLK  NUM') 

READ (IK B, 1010)  ITBLK 
1010  FORMAT (14) 

C***BRANCH  TO  SELECTED  DISC  FILE 

IF(INAM.EO.ICODAT)  GO  TO  30 
IF(INAM.EQ.IOMEG)  GO  TO  40 
IF(INAM.EO.ITRANS)  GO  TO  SO 
IF(INAM.EO.IORIHO)  GO  TO  70 
IF(INAM.EG.IACCL)  GO  TO  80 
IF(INAM.EQ.IORVEL)  GO  TO  90 
IF (INAM.fcO.IORPOS)  GO  TO  IOC 
IF(INAM.EO.IRBAKT)  GO  TO  110 
IF(INAM.EO.IANGL)  GO  TO  120 
C***ASSIGN  AND  DEFINE  SELECTED  FILE  AND  SET  INDEXES 
30  CALL  ASSIGN(17,'DKO:COr)ATA.DAT',14,'OLD') 

DEFINE  FILE  1 7 ( 260 , 256 , U , IF1 7 ) 

IFILES17 

IMAXs32  JMAX  NUMBER  OF  BLOCKS 

KIF*16  INUMBER  OF  SAMPLES  PER  BLOCK 

ILF«8  I  NUMBER  OF  ARRAY  POSITIONS  IN  DISC  FILE 

TBLK*0.16  1  SECONDS  PER  BLOCK 

GO  TO  140 

40  CALL  ASSIGN(15,'DKOjOMEGA.DAT',13,'OLD') 

DEFINE  FILE  15 ( 1 30 , 256 , U , IF  15 ) 

IFILE*15 
50  IMAXslB 

K I F  «  3  2 
ILF*4 
TBLK*0.32 
GO  TO  140 

CALL  ASSIGN ( 30, 'DKO I TRANSA.DAT ',14, 'OLD') 


60 


mx*42 

KIF*12 
1LF=10 
TBLKsO,J2 
GO  TO  140 

70  CALL  ASSIGNd6,'DK0:TR0RTA.DAT',14,'0LD') 

DEFINE  FILE  1 6 ( 340 , 240 ,U , I  FI  6 ) 

IFILEsl 6 
GO  TO  65 

80  CALL  ASSIGN (21, 'DK0sORACCB.DAT', 14, 'OLD') 

DEFINE  FILE  21  ( 1  30 , 256 , U , I F2 1  ) 

IFILES21 
GO  TO  50 

90  CALL  ASS1GN(22,  'DK 0 S ORGVEB . D AT' , 14, 'OLD') 

DEFINE  FILE  22 ( 1 30 , 256 , U , I F2 2 ) 

IFILE*22 
GO  TO  50 

100  CALL  ASSIGN(23, 'DKOsORGPOB.DAT', 14, 'OLD') 

DEFINE  FILE  23 ( 1 30 , 256 , U , I F23 ) 

IFIL£s23 
GO  TO  50 

110  CALL  ASSIGN(25,'DKO:FLATEN.DAT',14,'OLD') 

DEFINE  FILE  25 (1 30 , 256 , U , I F2 5 ) 

IFILE=25 
GO  TO  50 

120  CALL  ASS1GN(24, 'DK0XANGLES.DAT', 14, 'OLD') 

DEFINE  FILE  24 ( 1 3 0 , 256 , U , I F24 ) 

IFILEs24 
GO  TO  50 

C***ENTER  PLOT  START  AND  FINISH  BLOCK  NUMBERS  AND  TEST 
140  NRITE(I0D,2040)  I“AX 

2040  FORMATdOX, 'ENTER  PLOT  START  AND  FINISH  BLK  NUM:'/15X, 

1  'MAX*',I2,2X, 'IF  EVERY  POINT  PLOTTED') 

READ(IKB,1020)  ISBLN , IFBLK 
1020  F0RNATC2I4) 

IF(((IEBLK-ISBLK)+1).GT,IMAX*4)  STOP  'BLOCK  LIMIT  EXCEEDED' 
KSTPsl  I  INDEX  TO  LOAD  EVERY  POINT  OF  DAT R 

IF(((IEBLK-ISBLK)  +  1).GT.IMAX)  KSTP*2  1  LOAD  ALTERNATE  PIS 
IF(((IFBLK-ISBLK)+1),GT,IMAX*2)  KSTP»4  ‘LOAD  EVERY  4TH  PT 
C***ENTER  NUMBER  OF  CHANNELS(OR  ARRAY  POSITIONS)TO  BE  PLOTTED ; TEST 
WRITE(I0D,2060) 

2060  FORMATdOX, 'ENTER  FIRST  AND  LAST  PLOT  ARRAY  NUMBER  !  V  A Xs4  ' 

1  / 1  OX , '**LAST  MUST  PL  ,GL,  FIRST**') 

READ (IKB,1020)  ISPL,IFPL 

IF( ( (IFPL-ISPLJ+1 ) ,GT.4)  IFPL*ISPL+3  UNSURE  MAX  4  PLOTS 
IF(ISPL.GT.IFPL)  STOP  'FIRST  ARRAY  PLOT  NUM  ,GT,  LAST' 
C***ENTER  PLOT  AND  TEXT  SCALING  FACTORS 
PSIZ=l,b 
TSIZsl.O 

C***SET  INITIAL  VALUES 
bPITEClOD,20RO) 

2080  F0RMATC5X, 'FNTLP  CODEd-2-2-1  DIGI TS )  J  D1  SC  ,  REC ,  SUB  ,  T  EST  '  ) 
READ(IKB,1040)  CODE 
1040  FORMAT(bAl) 

C  NRITE(IOD,207O) 

2070  FORMATdOX, 'ENTFR  STEP  SIZE  ( 1  OOHZ-O  ,  01 , 200HZ-0 . 005  )  '  ) 

C  READ(IKB,1030)  H 

1030  FORMATCF15.7) 

H*0, 005  I  SET  STEP  SIZE  FOR  200  HZ  ONLY 

IBLK*ISBLK 

IPTS*(  (IFBLK-J5BLK)d)*KIF/KSTP 
IFUPTS.GT.512)  STOP  'IPTS  COMPUTFD  ,GT.  512' 

C***BEGIN  LOOP  TO  LOAD  DISC  DATA  INTO  DATA  ARRAY 

160  READ( IFILE'IBLK )  ( ( DATBLK ( KI , IL) , I L*1 , ILF) , KJ *1 , KIF ) 

DO  180  KB*1 ,KIF ,K5TP 

IND*CIPLK-ISBLK)*KIF/KSTP4KB/KSTP4K5TP/2 
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1 F  (  KSTP  ,  tO  .  4  )  INDsUD-1 
DO  170  NC=ISPI, IFPL 

170  DATA  (  INI),  KC-ISPL+1 )  sPATBL* ( KK , KC ) 

180  TIME(1ND)*FL0AT(  (  I  DI-K- IT  BLN  )  * K I F+  (  K E - 1  )  )  * H 

lF(IBLK.EO.IFbLK)  GD  TU  200 
IBLFsIBLK+1 
GO  TO  160 

C***CLOSE  OPEN  DISC  FILE 
200  CALL  CLOSE(IFILE) 

C***BEGIN  PLOTTING  ROUTINF 
CALL  PLOTST 
CALL  F ACTOR ( PS  I Z ) 

CALL  TEXTS(TSIZ) 

C***SFT  THE  REQUIRED  INTERVAL  NUMBERS  AND  SIZE  FOR  THE  Y-AXIS 
IP=IFPL-ISPl.+  l  INUMBER  OF  PLOTS  (1  TO  4) 

FIPsFLOAT ( IP  ) 

S*12. 0/RIP  1  Y-AXIS  SIZE  IN  CMS 

C***M0VE  ORIGIN  TO  BOTTOM  LEFT  OF  PLOT 

X0RS20.0  120  MM  FROM  LEFT  EDGE 

YORs20.0  120  MM  FROM  BOTTOM 

CALL  PLOT(XOk, YUR.-3) 

C***SCALE  AND  DRAW  X-AXIS  (22  CM  LONG) 

BKPCMsFLOAT((IFBLK-ISBLK)+2)  1NUM  OF  BLOCKS  4-  1 

IFCH.LT. 0.008)  TBLKsTBLKMO . 5  1BLOCK  TIME  8200HZ 
IDXalFIX (BKPC«/ 22. 0*TBLK* 100.0)  1  FI X (SEC/CM*  1 00 ,  ) 
DX=FLOAT(IDX)/100.0  ICONVFRT  TO  2  DIGITS 

IF(DX.LT.1.0E-4)  DXcTBLK*0.05 
XMINsTIME(l) 

CALL  AXIS(0. 0,0.0. 'TIME  ( SECS ) ' , 1 1 , 22 . 0 , 0. 0 , XMI N , DX) 
C***MOVE  ORIGIN  TO  TOP  LENT  OF  FIRST  PLOT 
YORs( 12.0+RIP— 0.5) 410.0 
CALL  PL0T(G.0,Y0R,-3) 

C***WRITE  CODE  NUMBER 
TSI7=0.8 

CALL  SYMBOL (20. ,-b. ,6. .CODE, 0.0, 6) 

TSIZsl.O 

CALL  PLOT(0.0,0.0,3) 

C***WRITE  TITLE  OF  DATA  BEING  PLOTTED 
C***  MOVE  PEN  TO  TITLE  STARTING  POINT 
XTOslOO.O 
YT0«-7 . 0 
SNAMSZsb.O 

1F(INAV.E'Q.IC0DAT)  GO  TO  310 
IFUNAM.EG.  IOMEC-)  GO  TO  320 
IF( JNAM.Eu. ITRANS)  GO  TO  340 
IFtlNAM.EQ. IQRTHO)  GO  TO  350 
IF(INAM.EQ.IACCL)  GO  TO  360 
IF(INAM.EQ.IORVEL)  GO  TO  370 
IF(INAM.EQ.IORPOS)  GO  TO  380 
IF(INAM.EQ.IRBAKT)  GO  TO  390 
IF(INAM.EQ.I ANGL)  GO  TO  500 
310  CALL  SYMBOL(XTO,YTO,SNAMSZ, 'CODATA', 0.0, 6) 

GO  TO  400 

320  CALL  SYMBOL ( XTO, YTO, SNA MSZ, 'OMEGA', 0.0, 5) 

GO  TO  400 

340  CALL  SYMBOL(XTO, YTO, SNAMSZ, 'TRANS  MATRIX 0 .0 , 1 2 ) 

GO  TO  400 

350  CALL  SYMBOLCXTO, YTO, SNAMSZ, 'ORTHO  M ATRIX * , 0 . 0 , i 2 ) 

GO  TO  400 

360  CALL  SYM80L(XT0, YTO, SNAMSZ, 'ORGACCL', 0.0, 7) 

GO  TO  400 

370  CALL  SYMBOL(XTO, YTO, SNAMSZ, 'ORGVEL', 0.0, 6) 

GO  TO  400 

380  CALL  SYMBOUXTO, YTO, SNAMSZ, 'ORGPOS', 0.0, 6) 

GO  TO  400 
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GO  TO  400 

500  CALL  SYMHOL(XTO,YTCJ,SNAV!SZ,  'ANGLES  THFT  ,  PHI ,  BET'  ,  0 . 0 , 1  9  ) 

C*»*BEGIN  THE  PLOTTING  LOOP 
400  DO  450  I=ISPL,IFPL 

***LOAD  THE  YDATA  AHRAY 
DO  410  11=1 , 1PTS 

10  YDATACII)=DATA(II,I-ISPL+1) 

_ f **MOVE  THE  ORIGIN  TO  ROTTPW  LEFT  OF  CURRENT  PLOT 
Y0R*-(S+1. 0)*10.0 
IF(I.EQ.ISPL)  YOR=-S*10.0 
CALL  PLOKO.O,  Y0R,-3) 

C***SCALE  AND  DRAW  the  Y-AXIS  (S  CM  HIGH) 

CALL  SCALE(YDATA,S,1PTS, 1 ,YMIN,DY) 

CALL  AXIS(0.0,0.0,LA8EL(I) , -2 , S , 90 . 0 , YMI N , DY ) 

C***MOVE  THE  PFN  TO  I  *  ZFRO  POSITION  AND  DRAW  Y=0  LINE 
YZER=-YMIN/DY*10,0 
XZREND=(TIHF.(IPTS)-XMIN)/DX*10,0 
CALL  PLPT(0.0,YZER,3) 

CALL  PL0T(XZREND,YZFR,2) 

CALL  PLUT(0.0,YZEP,3) 

C***PLOT  THIS  LINE 

DO  430  11=1, IPTS 
XX=(T1ME(II)-XMIN)/PX*10.0 
Y Y* ( YDATA ( II ) -YH IN )/DY4 10.0 
430  CALL  PLOT (XX , YY , 2 ) 

450  CONTINUE 

CALL  PLOTND 
CALL  EXIT 
END 


C***  PROGRAM  SCNPOS 

C***  THIS  PROGRAM  LOCATES  THE  CENTRAL  3  STRIDES  IN  THE  WALK  PY  FINDING 
C***THE  H1NIMUM  POSITIONS  IN  THE  VERTICAL  DIRECTION  . 

C*** 

C ***  TASK  BUILD  AS:  SCNPOS  =  SCNPOS  ,  d , 1 ] F4P0TS/LB 

C***  UNITSsll  MAXBUFbS12 

DIMENSION  CODATA (32, 4) ,ASTR(3) , I PPS ( 3 ) , J R ( 3 ) , ISUB( 3 ) , IHOS ( 3 ) 
DIMENSION  ITST ( 3 )  ,  1  Shi_i(  3)  ,IFBL(3)  ,  K  F  N!)  (  3)  ,TSAMP(3) 

DIMFNSION  ACCMXy(SO)  ,  I MNBl.K  (  50  )  ,  I MNI  ND  (  50  )  ,  TI MMXX  (  50 )  ,  TI  M*  AX  (  6 , 3  ) 
DIMENSION  INWHLK(7),INW1ND(7),TIMNEM(7) , ACCM AX ( 6 , 3 ) , ACCM I N ( 6 , 3 ) 
DIMENSION  T1MM1N(6, 3)  ,Slt«PEK(  3)  ,PEAK(fc,  3)  ,SUMMAX(  3)  ,SUMMIN  (  3) 
DIMFNSION  51G*AX(3) .SIC* IN ( 3) ,SIGPEK(3) , I TITLE (9, 5) , I  ALPHA (8, 6) 
DIMENSION  INDNAM(R) ,IFLNAM(B) ,IL0CN(7) 

L0GICAL*1  I DATE ( 9 ) ,ITIMF(8) 

COMMON  /ASV/IF15,IF19,IF31 

DATA  I  ALPHA (1,1) , I ALPH A (2,1) , I  ALPHA (3, 1 ) , I A LPH A ( 4 , 1 ) , I ALPH A ( 5 , 1 ) , 
1  I ALPHA (6,1), I  ALPHA (7,1  > /'S Y ' , ' : 0' , 'RG' , 'AC' , 'C. ' , 'DA ' , 'T ; '/ 

DATA  TALPHA(1 , 2 ) , I ALPH A ( 2 , 2 ) , I  ALPHA (3, 2) , I ALPH A ( 4 , 2 ) # I ALPH A ( 5 , 2 ) , 
1  I  ALPHA  (6, 2)  ,IALPHA(7,2)/'SY',':0','RG','VE','L.','DA','T>'/ 

DATA  I A  LPH  A  (1,3),  I  ALPH  A  (2, 3)  ,  I.  ALPHA  (  3 , 3  )  ,  J ALPH A ( 4 , 3 ) , I ALPH A ( 5 , 3 ) , 
1  IALHHA(6,3),TALPHA(7,3)/'SY','SO','RG'»'PO','S.','DA','T; '/ 

DATA  1ALPHA(1 ,4) , I ALPH A (2, 4) , I ALPH A ( 3 , 4 > , I  ALPHA ( 4 , 4 ) , I ALPHA ( 5 , 4 ) , 
1  IALPHA(6,4),IALPHA(7,4)/'SY','t  ' , 'OM ' , ' EG* , ' A , ' , 'D A ' , 'T j '/ 

DATA  I  ALPHA (1 ,S) , I ALPH A (2, 5) ,1 ALPH A (3, 5) , I  ALPHA (4, 5) , I ALPH A (5, 5) , 
1  IALPhA(6,5)»IALPHA(7,5)/'SY',':N','E*','AN','G.','rA','T;'/ 

DATA  IAI.PHAd  ,6)  ,IALPHA(2,6)  ,  IALPHA(3,6)  ,  1ALPHA(4,6)  ,IALPKA(S,6)  , 
1  IALPHA(6,6),IALPHA(7,6)/'SY','jI','ND','AC', 'C.','DA','T;'/ 

DATA  ITITLE(1,1),ITITLE(2,1),ITITLE(3,1),ITITLF(4,1),ITITLE(5,1)» 

1  IT1TLE(6,1),J TITLE (7,1) , I  TITLE (8,1) , IT  I TLE ( 9 , 1 ) / ' AC' , 'CE ' , 

2  'LE','PA','TI','ON',':  '/ 

DATA  I  TITLE (1 ,2) ,ITITLF(2,2) , I TI TLE ( 3 , 2 ) ,ITITLE(4,2) , ITITLE ( 5 , 2 ) , 

1  ITI TLE ( 6,2) ,ITITLE(7,2) , ITITLE (8,2) , ITITLE (9 , 2 ) / ' VE ' , 'LO ' , 

2  'CI'.'TY',':  ','  ','  ','  •/ 

DATA  ITITLEd  ,3)  ,ITITLE(2,3)  ,  ITI  TLE  (3, 3)  ,  ITITLE(  4 , 3  )  ,  ITITLF,(  5 , 3 )  , 

1  ITITLE(6,3),ITITLE(7,3),ITITLE(8,3),ITITLE(9,3)/'PO','SI', 

2  'TI'.'ON','*  '/  '/ 

DATA  ITITLEd ,4) .ITITLE (2, 4) , I TI TIE ( 3 , 4 ) ,ITITLE(4,4) ,ITITLE(5,4) , 

1  I TITLE (to, 4) , ITITLE (7, 4) , I T I TLE ( 8 , 4 ) , I  TITLE ( 9 , 4 ) / ' AN ' , 'GU '  , 

2  'LA'.'R  ','VE', 'in', 'CI'.'TY',':  '/ 

DATA  ITITLEd  ,5)  .ITITLE  (2, 5)  ,  I  TITLE  (3, 5)  ,  ITITLEd,  5)  ,  ITITLE  (5, 5)  , 

1  I  TITLE (6, 5) .ITITLE (7, 5) .ITITLE (8, 5) , I T I TLE ( 9 , 5 ) / ' AN ' , 'GL '  , 

2  ' FS ' , ' :  ' ,  '  ' ,  '  '  ,  '  9 1 9  9 1 9  '  / 

DATA  lYES/'YE'/.INO/'NDV 

CALL  ASSIGN (8  ,  'SY : DUMPRN . I  ST ; 1  '  ,  15) 

CALL  FCBSET(8,'NEW') 

I K  H  =  5 
I0D*5 

C***WRITE  PROGRAM  TITLE  ON  TFRMINAL  SCREEN 
WRITEd  00,2000) 

2000  F0RMAT(20X,'CFNTRAL  3  STRIDES  LOCATOR') 

I POST* 1  ! SET  FOP  POSITION  1  ONLY 

C***ENTFR  VERSION  NUMBER  OF  DATA  FILES 
WPITE(I0D,2300) 

2300  F0RMAT(2X, 'ENTER  VERISON  NUMBER  OF  DATA  RECORDS') 

RFAD(IKB,1300)  IALPHA(8,1) 

1300  F0PVAT(A2) 


1010  FORMAT (16) 

C***LOAD  OTHER  DATA  FILE  NAMES  WITH  VFRSION  NUMBER 
DO  5  1*2, f 

5  TALPHA(8,I)sIALPHA(8,l) 

WRITE (1 00,2310)  ( I ALPHA ( K , 3 ) , K *1 , 8  ) 


* 


>TT 


4  ViW*'* 


» 


6 


DO  b  K=1 , R 

I  NON AM (K  )=I ALPHA (K  ,  f, ) 

CALI.  ASSIGN(10,INDUAW,i6) 

DFFTNE  FILE  1 0 ( 1 , 30 , U , I  FI  9 ) 

CALL  FP8SETC10, 'READONLY') 

RFAD(IO'IPOST)  IFOS,  I R , I SUB , I HOS ,  J 1ST , I S0L , 1 FBL , KEND , TSA p P 
CALL  CLOSE C 10) 

C***SET  INITIAL  INDEX  VALUES 

IfLAGs-10  l MEAN  COMPUTATION  FLAG 

DO  7  1*1,7 
INWBLK ( I } *0 

7  INWINPC I )=0 
IPL»2 

IL  =  4 
KIL=32 

IBLK=ISBL(1PL) 

LSsKIL 

LOTsLS»(IFBL(IPL)-ISBL(IPL) )+KEND(IPL)/lL 
H=0,005 

C***BEGIN  TO  SEARCH  POSITION  DATA  FILE 
IIFF=3 

C*** ASSIGN  AND  DEFINE  INPUT  FILE 
DO  8  K  K=  1  ,8 

8  IFLNAMKK)sIAl.PHA(KK,IIFF> 

CALL  ASSIGN(9,1FLNAM,16) 

DEFINF  FILE  9 ( 6 5 , 25H , U, 1F1 b ) 

CALL  FDfcSFT(9, 'READONLY') 

IFI L£=9 

C*»*ZERO  SUMMING  LOCATIONS 
DO  10  1*1,3 
10  ASTR ( I ) *0  #  0 

IF(IFL»G.LT.O)  GO  TO  20 
IBLKslNWBLKCl) 

IFRL(IPL)*INWBLK (7) 

KENDCIPL)=IL*INWIND(7) 

LOTsKIL*CIFPL(IPL)-TBLK)+(INWIND(l )-KIL+INWIND(7))/IL 
C***PEAD  BLOCK  OF  INPUT  DATA  AND  TNDEX  BLOCK 
20  PEADl IFILE'IBLK)  Cl  CODATA t K I , I ) , 1  =  1 , IL ) , K 1*1 , K1 L ) 

KIA*1 

LSaKIL 

IFCIBLK.EO.INVBLKCl  )>  KI  A*T Ny; I ND ( 1  ) 

IBLKaIBLK+1 

C***COMPUTE  SUM  OF  ALL  SAMPLES  AND  STORE 
DO  30  KIsKIA.LS 
DO  30  1=1,3 

30  ASTT  ( I ) *COD AT A ( K I , I ) 4 ASTR ( I ) 

C***IF  ON  LAST  BLOCK, PEDUCE  L S  TO  LAST  WORD 

IFCIBLK.EC.IFPLCIPL))  LSsKENDC  IPD/IL 
C***TFST  FOR  FND  OF  INPUT  DATA 

IFCIBLK.GT.IFBLCIPL))  GO  TO  40 
GO  TO  20 

C***COMPUTE  ME#*  VALUE 
40  DO  50  1=1,3 

50  ASTP(I)=ASTR(I)/FL0AT(LOT) 

C*»*SET  INDEXES  FOR  FINDING  ALL  P0SC3)  K1NJMUMS 
IlOCsO  'MINIMUM  LOCATION  INDEX 

ILOOPa-1  1INSURES  1ST  MIN  INDEX  IS  1  IE  START  NEGATIVE 
IBLKalSBL(IPL)  IRESET  TO  FIRST  BLOCK  OF  DATA 
C***SET  ALL  MINIMUM  PARAMETERS  TO  INITIAL  VALUES 
DO  SO  T* 1 , bO 
ACCMXXC I)=tOOOO, 

1MNBLK ( I ) =0 
IMNINDC I )*0 


60  TI MMXX ( I ) *0. 0 

C***READ  BLOCK  OF  INPUT  DATA  AND  INDEX  BLOCK 
70  READ(irZLC'IBLK)  C(C 


IP!  K  =  ]  RLK  +  1 

C»**SUPTHACT  MFAN  VALUE  AND  Sfc ARCH  FOR  MINI^UMR 
DO  90  Kh=l,m, 

CODATA(KS,3)=CODA7A(KU,3)-ASTR(3) 

IFCCODATACKB,  3)  .GT.O.O)  GO  TO  (?0 
C***MJNIMUM  SEARCH  LOOP 

I F ( I  LOOP . LI , 0 )  ILOC=ILOC+l 
ILOOP  =  -t  1 

IF (CODATA(KB, 3) .  GT .ACCMXXCILOC) )  GO  TO  90 
ACCKXX (ILOC)=CODATA(KB,3) 

IMNBLK(ILOC)=IBLF-l 

IMNIND(ILOC)=KB 

TIMMXX(ILOC)=ELC<AT(  ( IFLK-1 -ISRL ( IPL) > *K1 L+ ( K9-1 ) ) *F 
GO  TO  90 

C***MAXIMUM  SFARCH  LOOP 

80  JLOOP=-l 

90  CONTINUE 

C***TEST  FOR  END  OF  INPUT  DATA 

IFCIBLK.GT.IFBLCIPL))  go  TO  100 
GO  TO  70 

C***RESTGRF.  MINIMUM  TO  CORRECT  ABSOLUTE  VALUE 

100  DO  110  1  =  1  , ILOC 

110  ACCMXX(I)=ACCMXX(I)+ASTR(3) 

C*** WRITE  DATA  ON  TERMINAL  SCREEN 
WRITE(I0D,2010) 

2010  FORMAT(2X,'ILOC',2X,'BLK',2X,'IND',2X,'TIME',2X, 'ACCMXX') 

DO  120  1=1 , ILOC 

120  WRITE( JOD,2020)  I , I MNBLK ( I ) , I MN I ND ( I ) , T I M M X X ( I) , ACCM X X ( 1 ) 

2020  FORMAT(2X,I3,3X,I3,3X,I2,2X,F4.2,?X,G10. 3) 

C***CLOSE  OPEN  FILE 

CALL  CLOSE(IFILE) 

C***SET  PFINTED  OUTPUT  FLAG 

IT  1  =  1  NO  ! SET  TO  NOT  PRINT 

IFdYl.NE.IYES)  GO  TO  400 
C***ONLY  PRINT  HEADER  INFORMATION  ONE  TIME 
IF(ITFF.NE.l)  GO  TO  300 
CALL  DATE(IDATE) 

CALL  TIME(ITIML) 

WRITE(6 ,2095)  IDATE,  ITIMF. 

2095  FORMAT(15X, 'STATISTICS  FOR  CENTRAL  3  STR I DES ' , 1 5X , 9 A 1 , 2X , 

1  'AT  ' , 8 A 1  ) 

WPITECR  ,2100)  IRC  IP?.)  ,  I  SUB  (IPL)  ,IH0S(1PL) ,  ITSTCIPL)  ,IPOST, 

1  CAD 

2100  FORM  AT  (  1  H  ,  'RECORn  NUM  :  '  ,  I  3 , 5X  ,  'SUBJECT  NUMj',I3,5X, 

1  ' HOSP  BUM; ' ,16, sx, 'TEST  NUM :  '  ,  1 3 , 5X , 'POS I TI ON t ' , 1 3 , 

2  5X, 'CADENCE  *',F7,2,'  STFPS/M I NUTF ' ) 

WRITEC8 ,2120) 

2120  F0RMAT(5X,'STEP  SECTION  POINTS' , 5X , '1 ' ,6X , '2' , 6X , ' 3 ' , 6X , '4 
1  6X,'5',6X,'6',6X,'7') 

WRITEC8,2130)  (INWRI.K  (I)  ,1  =  1,7) 

2130  FOFMAT(20X,'BLUCKs',2X,I2,6(5X,I2)) 

WRITE ( 8 , 2 1 40  )  (INWINDf I) ,T  =  1 ,7) 

2140  F0RMAT(20X,'W0RDl  ' , 2 X , I  2 , 6 C 5X  ,  I  2 ) ) 

WPTTFC8 ,2160)  (TIMNEW(I) ,1=1,7) 

2160  FOPMAT(20X,'TIME: ',7(F7.2) ) 

300  WRITE(8,2190)  (  ITITl.EC  di?  ,  I  IFF)  ,  JJ  =  1 , 9) 

2190  FORMAT (6X , 9 A2 )  / 

DO  380  1=1,3  / 

WRITE (8, 2200)  I  / 

WRITE (8, 2210)  ( ACCMAX(K,I) ,K=1 , 6 ) , SUMM AX ( I ) , 5IGMAX ( I ) 

WRITE (8, 22 20)  (T1mmaX(K,I)  ,K  =  1,6) 

WRITE (8, 2? 30)  ( ACCMI N ( K , I ) ,K*1 ,6) ,SUMKIN(I) ,SIGMIN(I) 

WRITE (8, 2240)  (TIWMIN(K,I),K*l,6) 

380  WRITE ( 8 , 2260 )  (PEAK ( K , I ) , K=1 , 6 ) , SUMPEK C I ) , SIGPEK ( I ) 

2200  FORMAT ( 5X , ' AXIS' , 12  » 1 5X , ' l -2 '  ,  8X , '2-3 ' »  8X , '3“4 ' f BX , '4*5' #  8X 


2210  FORMAT(10X,'MAX  VALUES:  ',8(G11.4)J 

2220  FDRMAT(10X,'MAX  TIMES:  #,6CGU.4)) 

2230  FOkMATC10X,'MIN  VALUES:  ',8<Gii.4)) 

2240  FORFATdOX, 'MIN  TIMES:  ',6(CU,4)) 

2260  FORMATdOX, 'PK  TO  PK  :  ',8(G11.4)) 

WRITE(8,5000)  ! ADDED  DUE  TO  LP  MALFUNCT 

5000  FORMAT ( 2X , / ) 

400  CALL,  CLOSE’ (fi) 

CALL  EXIT 


F73 


CMMM  PROGRAM  STORE. 3 

C»**  THIS  P°QGR  AM  CDNDFNSES  THE  3  WALKING  CYCLES  INTO 
C»**THE  SAME  MU M b E R  OF  POINTS  FOR  ALL  7  SUBJECTS.  IT 
C***THEN  STORES  THE  PATA  IN  FILES 

C»MM  SY  :$$$SVf>.DAT;  *  WHERE  $  $  $  =  ACC  ,  POS  ,  VEL  ,  UHG  ,  ANG  ; 

C*MM  A=l,2,3  ANP  #=VERSION  NUMBER.  ONLY  ONE  ARRAY 
COMPOSITION  IS  STOREL  IN  EACH  DATA  FILE. 

CO* 

C*M M  TASK  BLILO  AS:  STORE3=STURE3 , t 1 , 1 J F4POTS/LB 

Cm  M  M  UNITSsll  KAXBUF=512 

Cmmm 


DIMENSION  CODATA (32,4) .DATA (600) ,IPCS(3) ,IR(3)  ,ISUB(3) , 

1  IPOS ( 3 ) #ITST(3) ,I5BL(3) ,IFBL(3) ,KEND(3) , 

2  TSAMP (  3  )  ,  T  NDX  (  200  )  ,  1FLN  AM  (  B  ) 

LOG1CALM 1  IDATt(9) , ITJMEC0) 

PATA  I Y  ES/ 'YE'/ 

IKB  =  5 
I  OD=5 

CMMM  WRITE  PROGRAM  NAME  ON  TERMINAL  SCREEN 
WRIT£(IOD,2000) 

2000  FORMAT ( 2X »  '  3  CYCLE  CONDENSING  PROGRAM') 

IPOST=l 

CMMMENTFR  INPUT  DATA  FILE  NAME 
20  WRITE(IOD,2010) 

2010  F ORMATC 2X , 'ENTER  FILENAME  -FI LN AM . DA T ? »* ' ) 

REAL (IF  L, 1000)  (1FLNAM(I ) ,1  =  1 ,8) 

1000  FORMATC8A2) 

WRITE(IOD.IOOO)  (IFI.NAM(I)  ,1  =  1  ,8) 

CMMMENTER  ARRAY  POSITION  TO  BE  STORED 
WPITE(IOD,2012) 

2012  FORMATC2X, 'ENTER  ARRAY  POSITION  Tr  STORE') 

READ(IKF , 1020)  III 

CMMMENTER  STARTING  AND  FINISHING  BLOCK  AND  WORD  AND  THE  NUMBER 
CMMM  OF  POINTS  TO  BE  KEPT  IN  CONDENSED  DATA  FILE 


WORD  AND  THE  NUMBER 


1010 

2030 

1020 


CMMM  OF  POINTS  TO  BE  KEPT  IN  CONDENSED  DATA  FILE 
WRITEC JOD,2020) 

2020  FORMAT(2X, 'ENTER!  FIRST  BLK, FIRST  WRD , LAST  BLK , LAST  WRD ' , 
1  / , 1  OX , ' AND  NUM  POINTS  FOR  COND  KILE') 

READ(IKB,1010)  ISBLK , I5WRD, IFBLK , IFWRD , IDPTS 
1010  FORMAT (  516  ) 

WRITE  Cl 00,20 30)  ISBLK  ,  I SWRD  ,  IFBLK , I FWRD 
2030  FORMATC2X, 'FIRST  BLK , WRD : ' , 2 1 4 , '  LAST  BLK , WRD ! ' , 2 1  4 ) 

1020  F'ORM  AT  (14) 

C*M*COMPUTE  DROP  POINTS  AND  JNDX(l) 

NDPTS=C IFBLK-ISBLK-1 )M32+33+IFWRD-ISWRD 

IDROP=NDPTS-IPPTS 

INDX( 1 )=IOPTS/IDHOP/2 

WRITE (10D, 20  50)  I  OPTS  ,  NDPTS , IDROP , I NDX ( 1 ) 

2050  FORMAT(2X,'IDPTS=',I3,'  NDPTS=',I3,'  IDROP=',I3, 

1  '  INDX(1)=',I3) 

CMMMASSIGN  AND  DEFINE  INPUT  FILF 
CALL  ASSIGN(9,IFLNAM,16) 

DEFINE  FILE  9 ( 65 , 256 , U , 1 F9 ) 

CALL  FDBSET(9, 'READONLY') 

IFILE*9 

CMMMSET  INITIAL  INDEXES 
K I L*3  2 
IL*4 

I  n  n  =  i 

KF*1 

DRPTSsFTiOAT  (IDROP) 

DTPTSsFLOAT(IDPTS) 

IBLKslSBLK 

CMMMREAD  BLOCK  OF  INPUT  DATA 


2050 


CMMMSET 


50 


READ(  lFiLF'l&LK)  (  (COO  AT  A(K1,I),I*1  ,IL),K1=1,KIL) 

KBS  =  1  J5TARTING  WORD  INDEX 

KBF=32  iFINISHING  WORD  INDEX 

IFCIBLK.EQ.ISBLK)  KBSsISW'RD 
IF(IBLK.EO.IFBLK)  KBF  =  IFWRD 
C***TE5TING  ONLY ,  WRITE  OUT  INDEXES  TO  CHECK 
D  WRITF(IOD,3000)  I WD , IBLK , K BS , KBF 

3000  F0PKAT<2X,'IND:',14,  •  ISLE:', 13,'  K  BS*',I3,'  KBF:', 13) 

C***LOAD  DATA  INTO  DATA  ARRAY 
DO  70  KH=KBS,KHF 
IFCINDX(KP) .NF.1ND)  GO  TO  60 
KPsKP+1 

3010  FORMAT(2X,'INDX(KP)',I3,'  KP:',J3,'  IND*.',I3) 

DKsFLOAT(KP) 

INDX(KP)  =  1NDX(1)-HFIX( I DTPTS/DRPTS ) *  CDK-1,0)  ) 

C***TESTING  ONLY  WhITt  OUT  INDX(KP),KP  AND  I  HD 
V  WRITE(IO0,3010)  I NDX ( K P ) , K P , I ND 

GC  TO  70 

60  DATA(IND)*C0DATA(KB,1II) 

IKDaIND+1 
70  CONTINUE 

C***INDFX  BLOCK  AND  CHECK  IF  ALL  DATA  READ  IN 
JBLK*IBLK+ 1 

IFCIBLK.LE.IFBLK)  GO  TO  50 
C***CL05E  OPEN  FILE 

CALL  CLOSEC IF ILE) 

C***WRITE  DDT  NUM  OF  PTS  LOADED, NUM  PTS  DROPPED, NUN  PTS  SAVED 
WRITECIOD,20t>0)  IND-1 ,KP-1 , IDPTS 

2060  F0RNATC2X, 'PT5  LDED:',I3,'  PTS  DROPED : '  ,  13 , '  IDPTS:', 13) 
C***WRITE  OUT  INDEX  OF  POINTS  DROPPED 

WRITE(I0D,2065)  ( JNDX(J) , J*1 ,KP-1) 

2065  FORMAT(20(2X,10I4,/)) 

C***ENTEP  OUTPUT  FILE  NAME 
WRITE(IOD,2070) 

2070  F0RMAT(2X, 'ENTER  OUTPUT  FILENAME  -FI  t.N  AM  .  DAT  )  **  '  ) 

READ (IKB,1000)  C I FLN A M ( I ) , I = 1 , 8 ) 

WRITECIOD,iOOO)  (TFLNAMCI),Icl ,6) 

C**» WRITE  CONDFNSE'D  DATA  TO  DISC 
CALL  ASSIGN(10,IFLNAN,1 6) 

WPITE(IO)  IDPTS, (DATA ( I ), 1*1 , IDPTS) 

CALL  CLOSEriO) 

C***LQGP  BACK  TO  START  IF  DESIRFD 
WRITE(IOD,2080) 

20fiO  FORMAT 1 2 X , 'DO  YOU  WANT  TO  STOP ? ( YLS/NO ) '  ) 

READ ( IKB , 1 0  30)  IY1 
1030  FORMAT ( A2 ) 

IF ( 1 Y 1 « NE , IYES)  GO  TO  20 
100  CALL  EXIT 

END 


Typical  Plots  from  Data  Processing 
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THE  DEVELOPMENT  OF  AN  ACCELEROMETER  SYSTEM  FOR  MEASURING  PELVIC—  TC<U) 
1979  D  K  MCMASTER 

AFIT-79-209D  M 
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